
(/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
      (LETT |inp|
            (SPADCALL "ERROR: (" (SPADCALL |s| ")" (QREFELT $ 7))
                      (QREFELT $ 7))
            |TESTUNIT;xftestLibraryError;SV;12|)
      (SPADCALL |inp| NIL (QREFELT $ 30))
      (SPADCALL
       (SPADCALL "xftestLibraryErrorAux(\""
                 (SPADCALL |inp|
                           (SPADCALL "\", " (SPADCALL |s| ")" (QREFELT $ 7))
                                     (QREFELT $ 7))
                           (QREFELT $ 7))
                 (QREFELT $ 7))
       (QREFELT $ 13))
      (SPADCALL (QREFELT $ 31)) (EXIT (SPADCALL (QREFELT $ 27))))))) 

(DEFUN |Unittest| #1=()
  (PROG #1#
    (RETURN
     (PROG (#2=#:G1831)
       (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 33) . #1#)
      (QSETREFV $ 0 |dv$|)
      (QSETREFV $ 3 (LETT |pv$| (|buildPredVector| 0 0 NIL) . #1#))
      (|haddProp| |$ConstructorCache| '|Unittest| NIL (CONS 1 $))
      (|stuffDomainSlots| $)
      (SETF |pv$| (QREFELT $ 3))
      $)))) 

(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 . |incXfFatal|)
              (25 . |decXfFatal|) |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|
              (|List| (|OutputForm|)) (33 . |incXfPass|) (39 . |decXfPass|)
              |TESTUNIT;xftestLibraryError;SV;12|)
           '#(|xftestTrue| 43 |xftestRealEquals| 48 |xftestNotEquals| 54
              |xftestLibraryError| 60 |xftestEquals| 65 |xftestComplexEquals|
              71 |testTrue| 77 |testRealEquals| 82 |testNotEquals| 88
              |testLibraryError| 94 |testEquals| 99 |testComplexEquals| 105)
           'NIL
           (CONS (|makeByteWordVec2| 1 'NIL)
                 (CONS '#()
                       (CONS '#()
                             (|makeByteWordVec2| 32
                                                 '(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 2 9 8 6 29
                                                   30 0 9 8 31 1 0 8 6 26 2 0 8
                                                   6 6 20 2 0 8 6 6 24 1 0 8 6
                                                   32 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) 
