Last change
on this file since 10943 was
8991,
checked in by gz, 12 years ago

Check in the gcl ansi test suite (original, in preparation for making local changes)

File size:
1.5 KB

Line  

1  ;* Mode: Lisp * 

2  ;;;; Author: Paul Dietz 

3  ;;;; Created: Sun Jan 26 20:16:50 2003 

4  ;;;; Contains: Tests of BITVECTORP 

5  

6  (inpackage :cltest) 

7  

8  (deftest bitvectorp.2 

9  (notnotmv (bitvectorp #*)) 

10  t) 

11  

12  (deftest bitvectorp.3 

13  (notnotmv (bitvectorp #*00101)) 

14  t) 

15  

16  (deftest bitvectorp.4 

17  (bitvectorp #(0 1 1 1 0 0)) 

18  nil) 

19  

20  (deftest bitvectorp.5 

21  (bitvectorp "011100") 

22  nil) 

23  

24  (deftest bitvectorp.6 

25  (bitvectorp 0) 

26  nil) 

27  

28  (deftest bitvectorp.7 

29  (bitvectorp 1) 

30  nil) 

31  

32  (deftest bitvectorp.8 

33  (bitvectorp nil) 

34  nil) 

35  

36  (deftest bitvectorp.9 

37  (bitvectorp 'x) 

38  nil) 

39  

40  (deftest bitvectorp.10 

41  (bitvectorp '(0 1 1 0)) 

42  nil) 

43  

44  (deftest bitvectorp.11 

45  (bitvectorp (makearray '(2 2) :elementtype 'bit 

46  :initialelement 0)) 

47  nil) 

48  

49  (deftest bitvectorp.12 

50  (checktypepredicate #'bitvectorp 'bitvector) 

51  nil) 

52  

53  (deftest bitvectorp.13 

54  (macrolet 

55  ((%m (z) z)) 

56  (values (notnot (bitvectorp (expandincurrentenv (%m #*110101)))) 

57  (bitvectorp (expandincurrentenv (%m nil))))) 

58  t nil) 

59  

60  (deftest bitvectorp.order.1 

61  (let ((i 0) x) 

62  (values 

63  (notnot (bitvectorp (progn (setf x (incf i)) #*0010))) 

64  i x)) 

65  t 1 1) 

66  

67  (deftest bitvectorp.order.2 

68  (let ((i 0) x) 

69  (values 

70  (bitvectorp (progn (setf x (incf i)) 'a)) 

71  i x)) 

72  nil 1 1) 

73  

74  

75  (deftest bitvectorp.error.1 

76  (signalserror (bitvectorp) programerror) 

77  t) 

78  

79  (deftest bitvectorp.error.2 

80  (signalserror (bitvectorp #* #*) programerror) 

81  t) 

Note: See
TracBrowser
for help on using the repository browser.