14 my $result = $art5->process($code);
16 if ($result eq $expected) {
17 print "OK test: ", $code, "\n";
21 print "ERROR test: ", $code, "\n";
22 print "\tExpected: '", $expected, "' ",
23 "Got: '", $result, "'\n";
31 try
('1<{#this is a comment}>2', '12');
32 try
('1<{#this is a comment "hello"}>2', '12');
33 try
('1<{"hello"}>2', '1hello2');
34 try
("1<{'hello'}>2", '1hello2');
35 try
('1<{"hello\n"}>2', "1hello\n2");
37 print "\nTest result: ", $tests_ok, '/', $tests, ' (', ($tests_ok / $tests) * 100, "%)\n";