
(/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;testNotEquals;2SV;2| (|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;2|)
           (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;3| (|s| $)
  (PROG (|inp|)
    (RETURN
      (SEQ (LETT |inp|
                 (SPADCALL "TRUE: (" (SPADCALL |s| ")" (QREFELT $ 7))
                     (QREFELT $ 7))
                 |TESTUNIT;testTrue;SV;3|)
           (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;4| (|s| $)
  (PROG (|inp|)
    (RETURN
      (SEQ (SPADCALL (QREFELT $ 18))
           (LETT |inp|
                 (SPADCALL "ERROR: (" (SPADCALL |s| ")" (QREFELT $ 7))
                     (QREFELT $ 7))
                 |TESTUNIT;testLibraryError;SV;4|)
           (EXIT (SPADCALL
                     (SPADCALL "testLibraryErrorAux(\""
                         (SPADCALL |inp|
                             (SPADCALL "\", "
                                 (SPADCALL |s| ")" (QREFELT $ 7))
                                 (QREFELT $ 7))
                             (QREFELT $ 7))
                         (QREFELT $ 7))
                     (QREFELT $ 13))))))) 

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

(DEFUN |Unittest;| ()
  (PROG (|dv$| $ |pv$|)
    (RETURN
      (PROGN
        (LETT |dv$| '(|Unittest|) . #0=(|Unittest|))
        (LETT $ (GETREFV 20) . #0#)
        (QSETREFV $ 0 |dv$|)
        (QSETREFV $ 3 (LETT |pv$| (|buildPredVector| 0 0 NIL) . #0#))
        (|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;testNotEquals;2SV;2| |TESTUNIT;testTrue;SV;3|
             (20 . |chkLibraryError|) |TESTUNIT;testLibraryError;SV;4|)
          '#(|testTrue| 24 |testNotEquals| 29 |testLibraryError| 35
             |testEquals| 40)
          'NIL
          (CONS (|makeByteWordVec2| 1 'NIL)
                (CONS '#()
                      (CONS '#()
                            (|makeByteWordVec2| 19
                                '(2 6 0 0 0 7 1 9 8 6 10 1 12 11 6 13 0
                                  9 8 14 0 9 8 18 1 0 8 6 17 2 0 8 6 6
                                  16 1 0 8 6 19 2 0 8 6 6 15)))))
          '|lookupComplete|)) 

(MAKEPROP '|Unittest| 'NILADIC T) 
