;; Function To Be Tested: StringP
;;
;; Source:        IRM, p 9.2
;;
;; Chapter 9: Conditionals And Iterative Statements		
;;	Section 1: Data Type Predicates
;;
;; Created By:    Henry Cate III
;;
;; Creation Date: March 17, 1987
;;
;; Last Update:  
;;
;; Filed As:      {eris}<lispcore>test>DataTypes>StringP.test
;;
;; 


(do-test "test simple cases"
    (and
       (equal "a string" (il:stringp "a string"))
       (equal "Try 12321*& ()" (il:stringp "Try 12321*& ()"))
       (eq nil (il:stringp -5))
       (eq nil (il:stringp 1000000))
       (eq nil (il:stringp 'a-floatp))
     ))


(do-test "Test lists of various things"
    (and
       (equal "ABCDEFGHIJKLM" (il:stringp "ABCDEFGHIJKLM"))
       (equal "NOPQRSTUVWXYZ" (il:stringp "NOPQRSTUVWXYZ"))
       (equal "abcdefghijklm" (il:stringp "abcdefghijklm"))
       (equal "nopqrstuvwxyz" (il:stringp "nopqrstuvwxyz"))
       (equal "1234567890" (il:stringp "1234567890"))
       (equal "!@#$%^&*()" (il:stringp "!@#$%^&*()"))
       (equal "-=[];'`,./" (il:stringp "-=[];'`,./"))
       (equal "_+{}:\"~<>?" (il:stringp "_+{}:\"~<>?"))
	))


(do-test "Test go on own function"
    (flet ((temp-small nil "abcdefghijklm") )
    (test-defun temp-fun nil "-=[];'`,./")
    (and
       (equal "abcdefghijklm" (il:stringp (temp-small)))
       (equal "-=[];'`,./" (il:stringp (temp-fun)))
    )))


(do-test "Test work against system functions"
    (and
       (equal "A rat in the" 
		(il:stringp (concatenate 'string "A rat" " in the")))
       (equal "LITATOM" (il:stringp (il:mkstring 'litatom)))
    ))


(do-test "Try various types of Litatoms"
    (and
       (eq nil (il:stringp 'ABCDEFGHIJKLMNOPQRSTUVWXYZ))
       (eq nil (il:stringp 'A-couple-dashs))
       (eq nil (il:stringp 'Numbers-1234567890))

       (eq nil (il:stringp 'il:other-packags))
       (eq nil (il:stringp 'il:other-packagsNumbers-1234567890))
       (eq nil (il:stringp 'il:other-packagsA-couple-dashs))

       (eq nil (il:stringp T))
       (eq nil (il:stringp nil))
       (eq nil (il:stringp ()))
       (eq nil (il:stringp '()))
       (eq nil (il:stringp (list)))
       (eq nil (il:stringp (eq 1 2)))
     ))


(do-test "Test stop on own function"
    (flet ((tee nil t) (nill nil nil) (temp-litatom nil 'litatom)
		(temp-number nil 1234))
    (test-defun temp-fun nil 45.65)
    (test-setq temp-litatom 'il:temp-pointed)
    (and
       (eq nil (il:stringp (tee)))
       (eq nil (il:stringp (nill)))
       (eq nil (il:stringp (temp-litatom)))
       (eq nil (il:stringp (temp-number)))
       (eq nil (il:stringp (temp-fun)))
       (eq nil (il:stringp temp-litatom))
    )))


(do-test "Stop on non-strings from system functions"
    (and
	  (eq nil (il:stringp (car '(#*1001 '#( 5 4 3 2 1)))))
       (eq nil (il:stringp (second '(#\. #\k))))
    ))


(do-test "Test arrays aren't strings"
    (and
       (eq nil (il:stringp (make-array '(2 2))))
       (eq nil (il:stringp (make-array '(6 6 6) :element-type '(or integer string))))
       (eq nil (il:stringp (make-array 5 :element-type 'bit :initial-contents '(0 0 1 1 0))))
       (eq nil (il:stringp (make-array '(5 5) :displaced-to (make-array '(6 6 6) :element-type '(or integer string)))))
       (eq nil (il:stringp (make-array 50 :initial-element 0)))
	))


(do-test "Test other datatypes aren't strings"
    (and
       (eq nil (il:stringp #\backspace))				; character
       (eq nil (il:stringp #\*))					; character
       (eq nil (il:stringp #\.))					; character
       (eq nil (il:stringp (make-hash-table)))			; hash table
       (eq nil (il:stringp (car (list-all-packages))))	; packages
       (eq nil (il:stringp (pathname nil)))			; pathname
       (eq nil (il:stringp *random-state*))			; ramdom state
       (eq nil (il:stringp #'cons))					; compiled function
       (eq nil (il:stringp (copy-readtable)))			; readtable
       (eq nil (il:stringp #*1001))					; simple-bit-vector
       (eq nil (il:stringp (make-synonym-stream nil)))	; stream
       (eq nil (il:stringp '#( 5 4 3 2 1)))			; vector
     ))

STOP