Last change
on this file since 8991 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.1 KB

Line  

1  ;* Mode: Lisp * 

2  ;;;; Author: Paul Dietz 

3  ;;;; Created: Mon Jan 13 16:27:12 2003 

4  ;;;; Contains: Tests for FUNCTIONLAMBDAEXPRESSION 

5  

6  (inpackage :cltest) 

7  

8  (deftest functionlambdaexpression.1 

9  (length 

10  (multiplevaluelist 

11  (functionlambdaexpression #'cons))) 

12  3) 

13  

14  (deftest functionlambdaexpression.2 

15  (let ((x nil)) 

16  (flet ((%f () x)) 

17  (let ((retvals 

18  (multiplevaluelist 

19  (functionlambdaexpression #'%f)))) 

20  (values (length retvals) 

21  (notnot (second retvals)))))) 

22  3 t) 

23  

24  ;;; Verify that it doesn't barf on generic functions 

25  (deftest functionlambdaexpression.3 

26  (length 

27  (multiplevaluelist 

28  (functionlambdaexpression 

29  #'meaninglessusergenericfunctionforuniverse))) 

30  3) 

31  

32  (deftest functionlambdaexpression.order.1 

33  (let ((i 0)) 

34  (functionlambdaexpression (progn (incf i) #'cons)) 

35  i) 

36  1) 

37  

38  (deftest functionlambdaexpression.error.1 

39  (signalserror (functionlambdaexpression) programerror) 

40  t) 

41  

42  (deftest functionlambdaexpression.error.2 

43  (signalserror (functionlambdaexpression #'cons nil) programerror) 

44  t) 

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