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

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

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

revision 1.3 by pfdietz, Sat Oct 12 01:27:12 2002 UTC revision 1.4 by pfdietz, Mon Nov 4 04:31:48 2002 UTC
# Line 38  Line 38 
38    #(5 4 3 2 1)    #(5 4 3 2 1)
39    #(1 2 3 4 5))    #(1 2 3 4 5))
40    
41  (deftest reverse-bitstring.1  (deftest reverse-nonsimple-vector.3
42      (let* ((x (make-array 10 :initial-contents '(1 2 3 4 5 6 7 8 9 10)
43                            :fill-pointer 5))
44             (y (reverse x)))
45        y)
46      #(5 4 3 2 1))
47    
48    (deftest reverse-bit-vector.1
49    (reverse #*)    (reverse #*)
50    #*)    #*)
51    
52  (deftest reverse-bitstring.2  (deftest reverse-bit-vector.2
53    (let ((x #*000110110110))    (let ((x #*000110110110))
54      (values (reverse x) x))      (values (reverse x) x))
55    #*011011011000    #*011011011000
56    #*000110110110)    #*000110110110)
57    
58    (deftest reverse-bit-vector.3
59      (let* ((x (make-array 10 :initial-contents '(0 0 0 1 1 0 1 0 1 0)
60                            :fill-pointer 5
61                            :element-type 'bit))
62             (y (reverse x)))
63        y)
64      #*11000)
65    
66  (deftest reverse-string.1  (deftest reverse-string.1
67    (reverse "")    (reverse "")
68    "")    "")
# Line 58  Line 73 
73    "011011011000"    "011011011000"
74    "000110110110")    "000110110110")
75    
76    (deftest reverse-string.3
77      (let* ((x (make-array 10 :initial-contents (coerce "abcdefghij" 'list)
78                            :fill-pointer 5
79                            :element-type 'character))
80             (y (reverse x)))
81        y)
82      "edcba")
83    
84    (deftest reverse-string.4
85      (let* ((x (make-array 10 :initial-contents (coerce "abcdefghij" 'list)
86                            :fill-pointer 5
87                            :element-type 'base-char))
88             (y (reverse x)))
89        y)
90      "edcba")
91    
92  (deftest reverse-error.1  (deftest reverse-error.1
93    (catch-type-error (reverse 'a))    (catch-type-error (reverse 'a))
94    type-error)    type-error)

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

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