
(/VERSIONCHECK 2) 

(DEFUN |TESTUNIT;testEquals;2SV;1| (|s1| |s2| $)
  (PROG (|inp|)
    (RETURN
     (SEQ
      (LETT |inp|
            (SPADCALL "EQUL: ("
                      (SPADCALL |s1|
                                (SPADCALL ", "
                                          (SPADCALL |s2| ")" (QREFELT $ 7))
                                          (QREFELT $ 7))
                                (QREFELT $ 7))
                      (QREFELT $ 7))
            |TESTUNIT;testEquals;2SV;1|)
      (SPADCALL |inp| (QREFELT $ 10))
      (SPADCALL
       (SPADCALL "testEqualsAux(\""
                 (SPADCALL |inp|
                           (SPADCALL "\", "
                                     (SPADCALL |s1|
                                               (SPADCALL ", "
                                                         (SPADCALL |s2| ")"
                                                                   (QREFELT $
                                                                            7))
                                                         (QREFELT $ 7))
                                               (QREFELT $ 7))
                                     (QREFELT $ 7))
                           (QREFELT $ 7))
                 (QREFELT $ 7))
       (QREFELT $ 13))
      (EXIT (SPADCALL (QREFELT $ 14))))))) 

(DEFUN |TESTUNIT;testRealEquals;2SV;2| (|s1| |s2| $)
  (PROG (|inp|)
    (RETURN
     (SEQ
      (LETT |inp|
            (SPADCALL "EQLR: ("
                      (SPADCALL |s1|
                                (SPADCALL ", "
                                          (SPADCALL |s2| ")" (QREFELT $ 7))
                                          (QREFELT $ 7))
                                (QREFELT $ 7))
                      (QREFELT $ 7))
            |TESTUNIT;testRealEquals;2SV;2|)
      (SPADCALL |inp| (QREFELT $ 10))
      (SPADCALL
       (SPADCALL "testRealEqualsAux(\""
                 (SPADCALL |inp|
                           (SPADCALL "\", "
                                     (SPADCALL |s1|
                                               (SPADCALL ", "
                                                         (SPADCALL |s2| ")"
                                                                   (QREFELT $
                                                                            7))
                                                         (QREFELT $ 7))
                                               (QREFELT $ 7))
                                     (QREFELT $ 7))
                           (QREFELT $ 7))
                 (QREFELT $ 7))
       (QREFELT $ 13))
      (EXIT (SPADCALL (QREFELT $ 14))))))) 

(DEFUN |TESTUNIT;testComplexEquals;2SV;3| (|s1| |s2| $)
  (PROG (|inp|)
    (RETURN
     (SEQ
      (LETT |inp|
            (SPADCALL "EQLC: ("
                      (SPADCALL |s1|
                                (SPADCALL ", "
                                          (SPADCALL |s2| ")" (QREFELT $ 7))
                                          (QREFELT $ 7))
                                (QREFELT $ 7))
                      (QREFELT $ 7))
            |TESTUNIT;testComplexEquals;2SV;3|)
      (SPADCALL |inp| (QREFELT $ 10))
      (SPADCALL
       (SPADCALL "testComplexEqualsAux(\""
                 (SPADCALL |inp|
                           (SPADCALL "\", "
                                     (SPADCALL |s1|
                                               (SPADCALL ", "
                                                         (SPADCALL |s2| ")"
                                                                   (QREFELT $
                                                                            7))
                                                         (QREFELT $ 7))
                                               (QREFELT $ 7))
                                     (QREFELT $ 7))
                           (QREFELT $ 7))
                 (QREFELT $ 7))
       (QREFELT $ 13))
      (EXIT (SPADCALL (QREFELT $ 14))))))) 

(DEFUN |TESTUNIT;testNotEquals;2SV;4| (|s1| |s2| $)
  (PROG (|inp|)
    (RETURN
     (SEQ
      (LETT |inp|
            (SPADCALL "DIFF: ("
                      (SPADCALL |s1|
                                (SPADCALL ", "
                                          (SPADCALL |s2| ")" (QREFELT $ 7))
                                          (QREFELT $ 7))
                                (QREFELT $ 7))
                      (QREFELT $ 7))
            |TESTUNIT;testNotEquals;2SV;4|)
      (SPADCALL |inp| (QREFELT $ 10))
      (SPADCALL
       (SPADCALL "testNotEqualsAux(\""
                 (SPADCALL |inp|
                           (SPADCALL "\", "
                                     (SPADCALL |s1|
                                               (SPADCALL ", "
                                                         (SPADCALL |s2| ")"
                                                                   (QREFELT $
                                                                            7))
                                                         (QREFELT $ 7))
                                               (QREFELT $ 7))
                                     (QREFELT $ 7))
                           (QREFELT $ 7))
                 (QREFELT $ 7))
       (QREFELT $ 13))
      (EXIT (SPADCALL (QREFELT $ 14))))))) 

(DEFUN |TESTUNIT;testTrue;SV;5| (|s| $)
  (PROG (|inp|)
    (RETURN
     (SEQ
      (LETT |inp|
            (SPADCALL "TRUE: (" (SPADCALL |s| ")" (QREFELT $ 7)) (QREFELT $ 7))
            |TESTUNIT;testTrue;SV;5|)
      (SPADCALL |inp| (QREFELT $ 10))
      (SPADCALL
       (SPADCALL "testTrueAux(\""
                 (SPADCALL |inp|
                           (SPADCALL "\", " (SPADCALL |s| ")" (QREFELT $ 7))
                                     (QREFELT $ 7))
                           (QREFELT $ 7))
                 (QREFELT $ 7))
       (QREFELT $ 13))
      (EXIT (SPADCALL (QREFELT $ 14))))))) 

(DEFUN |TESTUNIT;testLibraryError;SV;6| (|s| $)
  (PROG (|inp|)
    (RETURN
     (SEQ (SPADCALL (QREFELT $ 20))
          (LETT |inp|
                (SPADCALL "ERROR: (" (SPADCALL |s| ")" (QREFELT $ 7))
                          (QREFELT $ 7))
                |TESTUNIT;testLibraryError;SV;6|)
          (EXIT
           (SPADCALL
            (SPADCALL "testLibraryErrorAux(\""
                      (SPADCALL |inp|
                                (SPADCALL "\", "
                                          (SPADCALL |s| ")" (QREFELT $ 7))
                                          (QREFELT $ 7))
                                (QREFELT $ 7))
                      (QREFELT $ 7))
            (QREFELT $ 13))))))) 

(DEFUN |Unittest| #1=()
  (PROG #1#
    (RETURN
     (PROG (#2=#:G1988)
       (RETURN
        (COND
         ((LETT #2# (HGET |$ConstructorCache| '|Unittest|) . #3=(|Unittest|))
          (|CDRwithIncrement| (CDAR #2#)))
         ('T
          (UNWIND-PROTECT
              (PROG1
                  (CDDAR
                   (HPUT |$ConstructorCache| '|Unittest|
                         (LIST (CONS NIL (CONS 1 (|Unittest;|))))))
                (LETT #2# T . #3#))
            (COND ((NOT #2#) (HREM |$ConstructorCache| '|Unittest|))))))))))) 

(DEFUN |Unittest;| ()
  (PROG (|dv$| $ |pv$|)
    (RETURN
     (PROGN
      (LETT |dv$| '(|Unittest|) . #1=(|Unittest|))
      (LETT $ (GETREFV 22) . #1#)
      (QSETREFV $ 0 |dv$|)
      (QSETREFV $ 3 (LETT |pv$| (|buildPredVector| 0 0 NIL) . #1#))
      (|haddProp| |$ConstructorCache| '|Unittest| NIL (CONS 1 $))
      (|stuffDomainSlots| $)
      $)))) 

(MAKEPROP '|Unittest| '|infovec|
          (LIST
           '#(NIL NIL NIL NIL NIL NIL (|String|) (0 . |elt|) (|Void|)
              (|UnittestCount|) (6 . |incFatal|) (|Any|) (|TemplateUtilities|)
              (11 . |interpretString|) (16 . |decFatal|)
              |TESTUNIT;testEquals;2SV;1| |TESTUNIT;testRealEquals;2SV;2|
              |TESTUNIT;testComplexEquals;2SV;3| |TESTUNIT;testNotEquals;2SV;4|
              |TESTUNIT;testTrue;SV;5| (20 . |chkLibraryError|)
              |TESTUNIT;testLibraryError;SV;6|)
           '#(|testTrue| 24 |testRealEquals| 29 |testNotEquals| 35
              |testLibraryError| 41 |testEquals| 46 |testComplexEquals| 52)
           'NIL
           (CONS (|makeByteWordVec2| 1 'NIL)
                 (CONS '#()
                       (CONS '#()
                             (|makeByteWordVec2| 21
                                                 '(2 6 0 0 0 7 1 9 8 6 10 1 12
                                                   11 6 13 0 9 8 14 0 9 8 20 1
                                                   0 8 6 19 2 0 8 6 6 16 2 0 8
                                                   6 6 18 1 0 8 6 21 2 0 8 6 6
                                                   15 2 0 8 6 6 17)))))
           '|lookupComplete|)) 

(MAKEPROP '|Unittest| 'NILADIC T) 
