41 $Script =
'some prefix some postfix';
42 $Result = $String->get_macro_parameters( $Script ,
'macro' );
44 if( $Result ==
false )
46 return(
'TEST PASSED' );
67 $Script =
'some prefix {macro:a=1;b=2} some postfix';
68 $Result = $String->get_macro_parameters( $Script ,
'macro' );
70 if( $Result ==
"a=1;b=2" )
72 return(
'TEST PASSED' );
93 $Script =
'some prefix {macro:a=1;b=2} middle {macro:a=3;b=4} some postfix';
94 $Result = $String->get_macro_parameters( $Script ,
'macro' );
96 if( $Result ==
"a=1;b=2" )
98 return(
'TEST PASSED' );
119 $Script =
'some prefix {macro:a={lang:space};b=2} some postfix';
120 $Result = $String->get_macro_parameters( $Script ,
'macro' );
122 if( $Result ==
"a={lang:space};b=2" )
124 return(
'TEST PASSED' );
145 $Script =
'some prefix {macro:a=1;b=2} some postfix';
146 $Result = $String->get_macro_parameters(
147 $Script ,
'macro' , array(
'a' => TERMINAL_VALUE ,
'b' => TERMINAL_VALUE )
150 if( $Result ==
"a=1;b=2" )
152 return(
'TEST PASSED' );
173 $Script =
'some prefix {macro:a={lang:space};b=2} some postfix';
174 $Result = $String->get_macro_parameters(
175 $Script ,
'macro' , array(
'a' => TERMINAL_VALUE ,
'b' => TERMINAL_VALUE )
178 if( $Result ==
false )
180 return(
'TEST PASSED' );
203 $Script =
'some prefix {macro:a={lang:space};b=2} middle {macro:a=3;b=4} some postfix';
204 $Result = $String->get_macro_parameters(
205 $Script ,
'macro' , array(
'a' => TERMINAL_VALUE ,
'b' => TERMINAL_VALUE )
208 if( $Result ==
'a=3;b=4' )
210 return(
'TEST PASSED' );
231 $Script =
'some prefix {macro:a={macro:a=3;b=4};b=2} some postfix';
232 $Result = $String->get_macro_parameters(
233 $Script ,
'macro' , array(
'a' => TERMINAL_VALUE ,
'b' => TERMINAL_VALUE )
236 if( $Result ==
'a=3;b=4' )
238 return(
'TEST PASSED' );
259 $Script =
'some prefix '.chr( 123 ).
'macro:a='.chr( 123 ).
'lang:space'.
260 chr( 125 ).
';b=2 middle '.chr( 123 ).
'macro:a=3;b=4'.chr( 125 ).
' some postfix';
261 $Result = $String->get_macro_parameters(
262 $Script ,
'macro' , array(
'a' => TERMINAL_VALUE ,
'b' => TERMINAL_VALUE )
265 if( $Result ==
'a=3;b=4' )
267 return(
'TEST PASSED' );
288 $Script =
'some prefix {macro:a={{}}{}{{}}:space};b=2 middle {{}}}{}{ '.
289 '{macro:a=3;b=4} some {{}}{}}{}{}{}{} postfix';
290 $Result = $String->get_macro_parameters(
291 $Script ,
'macro' , array(
'a' => TERMINAL_VALUE ,
'b' => TERMINAL_VALUE )
294 if( $Result ==
'a=3;b=4' )
296 return(
'TEST PASSED' );