
(/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;xftestEquals;2SV;2| (|s1| |s2| $)
  (PROG (|inp|)
    (RETURN
     (SEQ
      (LETT |inp|
            (SPADCALL "EQUL: ("
                      (SPADCALL |s1|
                                (SPADCALL ", "
                                          (SPADCALL |s2| ")" (QREFELT $ 7))
                                          (QREFELT $ 7))
                                (QREFELT $ 7))
                      (QREFELT $ 7))
            |TESTUNIT;xftestEquals;2SV;2|)
      (SPADCALL |inp| (QREFELT $ 16))
      (SPADCALL
       (SPADCALL "xftestEqualsAux(\""
                 (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 $ 17))))))) 

(DEFUN |TESTUNIT;testRealEquals;2SV;3| (|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;3|)
      (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;xftestRealEquals;2SV;4| (|s1| |s2| $)
  (PROG (|inp|)
    (RETURN
     (SEQ
      (LETT |inp|
            (SPADCALL "EQLR: ("
                      (SPADCALL |s1|
                                (SPADCALL ", "
                                          (SPADCALL |s2| ")" (QREFELT $ 7))
                                          (QREFELT $ 7))
                                (QREFELT $ 7))
                      (QREFELT $ 7))
            |TESTUNIT;xftestRealEquals;2SV;4|)
      (SPADCALL |inp| (QREFELT $ 16))
      (SPADCALL
       (SPADCALL "xftestRealEqualsAux(\""
                 (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 $ 17))))))) 

(DEFUN |TESTUNIT;testComplexEquals;2SV;5| (|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;5|)
      (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;xftestComplexEquals;2SV;6| (|s1| |s2| $)
  (PROG (|inp|)
    (RETURN
     (SEQ
      (LETT |inp|
            (SPADCALL "EQLC: ("
                      (SPADCALL |s1|
                                (SPADCALL ", "
                                          (SPADCALL |s2| ")" (QREFELT $ 7))
                                          (QREFELT $ 7))
                                (QREFELT $ 7))
                      (QREFELT $ 7))
            |TESTUNIT;xftestComplexEquals;2SV;6|)
      (SPADCALL |inp| (QREFELT $ 16))
      (SPADCALL
       (SPADCALL "xftestComplexEqualsAux(\""
                 (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 $ 17))))))) 

(DEFUN |TESTUNIT;testNotEquals;2SV;7| (|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;7|)
      (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;xftestNotEquals;2SV;8| (|s1| |s2| $)
  (PROG (|inp|)
    (RETURN
     (SEQ
      (LETT |inp|
            (SPADCALL "DIFF: ("
                      (SPADCALL |s1|
                                (SPADCALL ", "
                                          (SPADCALL |s2| ")" (QREFELT $ 7))
                                          (QREFELT $ 7))
                                (QREFELT $ 7))
                      (QREFELT $ 7))
            |TESTUNIT;xftestNotEquals;2SV;8|)
      (SPADCALL |inp| (QREFELT $ 16))
      (SPADCALL
       (SPADCALL "xftestNotEqualsAux(\""
                 (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 $ 17))))))) 

(DEFUN |TESTUNIT;testTrue;SV;9| (|s| $)
  (PROG (|inp|)
    (RETURN
     (SEQ
      (LETT |inp|
            (SPADCALL "TRUE: (" (SPADCALL |s| ")" (QREFELT $ 7)) (QREFELT $ 7))
            |TESTUNIT;testTrue;SV;9|)
      (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;xftestTrue;SV;10| (|s| $)
  (PROG (|inp|)
    (RETURN
     (SEQ
      (LETT |inp|
            (SPADCALL "TRUE: (" (SPADCALL |s| ")" (QREFELT $ 7)) (QREFELT $ 7))
            |TESTUNIT;xftestTrue;SV;10|)
      (SPADCALL |inp| (QREFELT $ 16))
      (SPADCALL
       (SPADCALL "xftestTrueAux(\""
                 (SPADCALL |inp|
                           (SPADCALL "\", " (SPADCALL |s| ")" (QREFELT $ 7))
                                     (QREFELT $ 7))
                           (QREFELT $ 7))
                 (QREFELT $ 7))
       (QREFELT $ 13))
      (EXIT (SPADCALL (QREFELT $ 17))))))) 

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

(DEFUN |TESTUNIT;xftestLibraryError;SV;12| (|s| $)
  (PROG (|inp|)
    (RETURN
     (SEQ (SPADCALL (QREFELT $ 27))
          (LETT |inp|
                (SPADCALL "ERROR: (" (SPADCALL |s| ")" (QREFELT $ 7))
                          (QREFELT $ 7))
                |TESTUNIT;xftestLibraryError;SV;12|)
          (EXIT
           (SPADCALL
            (SPADCALL "xftestLibraryErrorAux(\""
                      (SPADCALL |inp|
                                (SPADCALL "\", "
                                          (SPADCALL |s| ")" (QREFELT $ 7))
                                          (QREFELT $ 7))
                                (QREFELT $ 7))
                      (QREFELT $ 7))
            (QREFELT $ 13))))))) 

(DEFUN |Unittest| #1=()
  (PROG #1#
    (RETURN
     (PROG (#2=#:G2072)
       (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 30) . #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| (20 . |xfincFatal|)
              (25 . |xfdecFatal|) |TESTUNIT;xftestEquals;2SV;2|
              |TESTUNIT;testRealEquals;2SV;3| |TESTUNIT;xftestRealEquals;2SV;4|
              |TESTUNIT;testComplexEquals;2SV;5|
              |TESTUNIT;xftestComplexEquals;2SV;6|
              |TESTUNIT;testNotEquals;2SV;7| |TESTUNIT;xftestNotEquals;2SV;8|
              |TESTUNIT;testTrue;SV;9| |TESTUNIT;xftestTrue;SV;10|
              (29 . |chkLibraryError|) |TESTUNIT;testLibraryError;SV;11|
              |TESTUNIT;xftestLibraryError;SV;12|)
           '#(|xftestTrue| 33 |xftestRealEquals| 38 |xftestNotEquals| 44
              |xftestLibraryError| 50 |xftestEquals| 55 |xftestComplexEquals|
              61 |testTrue| 67 |testRealEquals| 72 |testNotEquals| 78
              |testLibraryError| 84 |testEquals| 89 |testComplexEquals| 95)
           'NIL
           (CONS (|makeByteWordVec2| 1 'NIL)
                 (CONS '#()
                       (CONS '#()
                             (|makeByteWordVec2| 29
                                                 '(2 6 0 0 0 7 1 9 8 6 10 1 12
                                                   11 6 13 0 9 8 14 1 9 8 6 16
                                                   0 9 8 17 0 9 8 27 1 0 8 6 26
                                                   2 0 8 6 6 20 2 0 8 6 6 24 1
                                                   0 8 6 29 2 0 8 6 6 18 2 0 8
                                                   6 6 22 1 0 8 6 25 2 0 8 6 6
                                                   19 2 0 8 6 6 23 1 0 8 6 28 2
                                                   0 8 6 6 15 2 0 8 6 6 21)))))
           '|lookupComplete|)) 

(MAKEPROP '|Unittest| 'NILADIC T) 
