home *** CD-ROM | disk | FTP | other *** search
/ Borland Programmer's Resource / Borland_Programmers_Resource_CD_1995.iso / ntcode / ntperlb / t / op / eval.nt < prev    next >
Encoding:
Text File  |  1995-05-19  |  1.3 KB  |  58 lines
  1. #!./perl
  2.  
  3. # $RCSfile: eval.t,v $$Revision: 4.0.1.1 $$Date: 91/11/05 18:43:19 $
  4.  
  5. print "1..16\n";
  6.  
  7. eval 'print "ok 1\n";';
  8.  
  9. if ($@ eq '') {print "ok 2\n";} else {print "not ok 2\n";}
  10.  
  11. eval "\$foo\n    = # this is a comment\n'ok 3';";
  12. print $foo,"\n";
  13.  
  14. eval "\$foo\n    = # this is a comment\n'ok 4\n';";
  15. print $foo;
  16.  
  17. print eval '
  18. $foo =';        # this tests for a call through yyerror()
  19. if ($@ =~ /line 2/) {print "ok 5\n";} else {print "not ok 5\n";}
  20.  
  21. print eval '$foo = /';    # this tests for a call through fatal()
  22. if ($@ =~ /Search/) {print "ok 6\n";} else {print "not ok 6\n";}
  23.  
  24. print eval '"ok 7\n";';
  25.  
  26. # calculate a factorial with recursive evals
  27.  
  28. $foo = 5;
  29. $fact = 'if ($foo <= 1) {1;} else {push(@x,$foo--); (eval $fact) * pop(@x);}';
  30. $ans = eval $fact;
  31. if ($ans == 120) {print "ok 8\n";} else {print "not ok 8\n";}
  32.  
  33. $foo = 5;
  34. $fact = 'local($foo)=$foo; $foo <= 1 ? 1 : $foo-- * (eval $fact);';
  35. $ans = eval $fact;
  36. if ($ans == 120) {print "ok 9\n";} else {print "not ok 9 $ans\n";}
  37.  
  38. open(try,'>opeval.tmp');
  39. print try 'print "ok 10\n"; unlink "opeval.tmp";',"\n";
  40. close try;
  41.  
  42. do 'opeval.tmp'; print $@;
  43.  
  44. # Test the singlequoted eval optimizer
  45.  
  46. $i = 11;
  47. for (1..3) {
  48.     eval 'print "ok ", $i++, "\n"';
  49. }
  50.  
  51. eval {
  52.     print "ok 14\n";
  53.     die "ok 16\n";
  54.     1;
  55. } || print "ok 15\n$@";
  56.  
  57.  
  58.