Home Explore Help
Sign In
reduce-algebra
/
reduce-historical
mirror of git://github.com/reduce-algebra/reduce-historical
Watch 2
Star 1
Fork 0
Files Issues
Branch: master
Branches Tags
reduce-histo...
/
psl-1983
/
3-1
/
tests
/
time-psl.sl

time-psl.sl 1.8 KB
Permalink History Raw

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253 
  1. % TIME-PSL.SL  Driver of PSL "spectral" tests
    2. 

  2. % After loading psl-timer.b, LAPIN  this file
    3. 

  3. 

  4. (wrs (open "time-psl.out" 'output))
    5. 

  5. (prin2  "PSL Spectral Tests,  ") (prin2 (versionname)) 
    6. 

  6. 	(prin2 ",  ") (prin2T (date))
    7. 

  7. (prin2t 
    8. 

  8. "---------------------------------------------------------------")
    9. 

  9. (TestSetup)
    10. 

  10. (progn	(reclaim)
    11. 

  11. 	(prin2 "EmptyTest 10000		")
    12. 

  12. 	(print (TimeEval '(EmptyTest 10000))) 0)
    13. 

  13. (progn (prin2 "SlowEmptyTest 10000	")
    14. 

  14. 	(print (TimeEval '(SlowEmptyTest 10000))) 0)
    15. 

  15. (progn (prin2 "Cdr1Test 100		")
    16. 

  16. 	(print (TimeEval '(Cdr1Test 100))) 0)
    17. 

  17. (progn (prin2 "Cdr2Test 100		")
    18. 

  18. 	(print (TimeEval '(Cdr2Test 100))) 0)
    19. 

  19. (progn (prin2 "CddrTest 100		")
    20. 

  20. 	(print (TimeEval '(CddrTest 100))) 0)
    21. 

  21. (progn (prin2 "ListOnlyCdrTest1	")
    22. 

  22. 	(print (TimeEval '(ListOnlyCdrTest1))) 0)
    23. 

  23. (progn (prin2 "ListOnlyCddrTest1	")
    24. 

  24. 	(print (TimeEval '(ListOnlyCddrTest1))) 0)
    25. 

  25. (progn (prin2 "ListOnlyCdrTest2	")
    26. 

  26. 	(print (TimeEval '(ListOnlyCdrTest2))) 0)
    27. 

  27. (progn (prin2 "ListOnlyCddrTest2	")
    28. 

  28. 	(print (TimeEval '(ListOnlyCddrTest2))) 0)
    29. 

  29. (progn (prin2 "ReverseTest 10		")
    30. 

  30. 	(print (TimeEval '(ReverseTest 10))) 0)
    31. 

  31. (progn (reclaim)
    32. 

  32. 	(prin2 "MyReverse1Test 10	")
    33. 

  33. 	(print (TimeEval '(MyReverse1Test 10))) 0)
    34. 

  34. (progn (reclaim)
    35. 

  35. 	(prin2 "MyReverse2Test 10	")
    36. 

  36. 	(print (TimeEval '(MyReverse2Test 10))) 0)
    37. 

  37. (progn (reclaim)
    38. 

  38. 	(prin2 "LengthTest 100		")
    39. 

  39. 	(print (TimeEval '(LengthTest 100))) 0)
    40. 

  40. (progn (prin2 "ArithmeticTest 10000	")
    41. 

  41. 	(print (TimeEval '(ArithmeticTest 10000))) 0)
    42. 

  42. (progn (prin2 "EvalTest 10000		")
    43. 

  43. 	(print (TimeEval '(EvalTest 10000))) 0)
    44. 

  44. (progn (prin2 "tak 18 12 6		")
    45. 

  45. 	(print (TimeEval '(topleveltak 18 12 6))) 0)
    46. 

  46. (progn (prin2 "gtak 18 12 6		")
    47. 

  47. 	(print (TimeEval '(toplevelgtak 18 12 6))) 0)
    48. 

  48. (progn (prin2 "gtsta g0		")
    49. 

  49. 	(print (TimeEval '(gtsta 'g0))) 0)
    50. 

  50. (progn (prin2 "gtsta g1		")
    51. 

  51. 	(print (TimeEval '(gtsta 'g1))) 0)
    52. 

  52. (close (wrs NIL))
    53. 

  53.