/[gcl]/gcl/ansi-tests/rotatef.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/rotatef.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by pfdietz, Sun Apr 20 22:59:26 2003 UTC revision 1.2 by pfdietz, Fri Oct 24 08:59:51 2003 UTC
# Line 25  Line 25 
25    #(a b c e f d)    #(a b c e f d)
26    5)    5)
27    
28    (deftest rotatef.1
29      (let ((x (vector 0 1 2)))
30        (values
31         (rotatef (aref x (aref x 0)) (aref x (aref x 1)) (aref x (aref x 2)))
32         x))
33      nil
34      #(1 2 0))
35    
36    (deftest rotatef.2
37      (let ((x (vector 0 1 2 3 4 5 6 7 8 9)))
38        (values
39         (rotatef (aref x (aref x 0))
40                  (aref x (aref x 1))
41                  (aref x (aref x 2))
42                  (aref x (aref x 3))
43                  (aref x (aref x 4))
44                  (aref x (aref x 5))
45                  (aref x (aref x 6))
46                  (aref x (aref x 7))
47                  (aref x (aref x 8))
48                  (aref x (aref x 9)))
49         x))
50      nil
51      #(1 2 3 4 5 6 7 8 9 0))
52    
53    (deftest rotatef.3
54      (rotatef)
55      nil)
56    
57    (deftest rotatef.4
58      (let ((x 10))
59        (values
60         x
61         (rotatef x)
62         x))
63      10 nil 10)
64    
65    (deftest rotatef.5
66      (let ((x 'a) (y 'b))
67        (values x y (rotatef x y) x y))
68      a b nil b a)
69      
70    
71  ;;; Need to add more tests for ROTATEF here  ;;; Need to add more tests for ROTATEF here

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26