home *** CD-ROM | disk | FTP | other *** search
/ APDL Public Domain 1 / APDL_PD1A.iso / program / language / perl / Test / T / Op / Eval < prev    next >
Encoding:
Text File  |  1990-06-11  |  1.1 KB  |  43 lines
  1. #!./perl
  2.  
  3. # $Header: op.eval,v 3.0 89/10/18 15:28:53 lwall Locked $
  4.  
  5. print "1..10\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,'>Tmp.Eval');
  39. print try 'print "ok 10\n"; unlink "Tmp.Eval";',"\n";
  40. close try;
  41.  
  42. do 'Tmp.Eval'; print $@;
  43.