Plaster
New
List
Login
common-lisp
default
phoe
2019.03.25 14:18:49
(define-test sql-select-dummy :parent sql) (defmethod parachute:eval-in-context :around (context (test (eql (parachute:find-test 'sql-select-dummy)))) (print "Installing dummy data.") (with-test-db () (uninstall) (install) (install-dummy-data)) (let ((*dummy-data* t)) (call-next-method)) (print "Cleanup.") (with-test-db () (uninstall) (install))) SQL/TEST> (test 'sql-select-dummy) ? GATEWAY.SQL/TEST::SQL-SELECT-DUMMY "Installing dummy data." "Cleanup." ? GATEWAY.SQL/TEST::PLAYER-SELECT-DUMMY # Phase "????" ???? 0.000 ✘ (is = id i) ???? 0.000 ✘ (is string= login (format () "player~D" i)) ???? 0.000 ✘ (is string= email (format () "player~D@gate.way" i)) ???? 0.000 ✘ (is string= name (format () "Player ~D" i)) ???? 0.000 ✘ (is vector= hash #(1)) ???? 0.000 ✘ (is vector= salt #(1)) ???? 0.000 ✘ (is eq activatedp (oddp i)) ???? 0.000 ✘ (true (typep creation-time 'timestamp)) ???? 0.000 ✘ (true (typep last-edit-time 'timestamp)) ???? 0.000 ✘ (is = id i) ???? 0.000 ✘ (is string= login (format () "player~D" i)) ???? 0.000 ✘ (is string= email (format () "player~D@gate.way" i)) ???? 0.000 ✘ (is string= name (format () "Player ~D" i)) ???? 0.000 ✘ (is vector= hash #(1)) ???? 0.000 ✘ (is vector= salt #(1)) ???? 0.000 ✔ (is eq activatedp (oddp i)) ???? 0.000 ✘ (true (typep creation-time 'timestamp)) ???? 0.000 ✘ (true (typep last-edit-time 'timestamp)) ???? 0.000 ✘ (is = id i) ???? 0.000 ✘ (is string= login (format () "player~D" i)) ???? 0.000 ✘ (is string= email (format () "player~D@gate.way" i)) ???? 0.000 ✘ (is string= name (format () "Player ~D" i)) ???? 0.000 ✘ (is vector= hash #(1)) ???? 0.000 ✘ (is vector= salt #(1)) ???? 0.000 ✘ (is eq activatedp (oddp i)) ???? 0.000 ✘ (true (typep creation-time 'timestamp)) ???? 0.000 ✘ (true (typep last-edit-time 'timestamp)) ???? 0.000 ✘ (is = id i) ???? 0.000 ✘ (is string= login (format () "player~D" i)) ???? 0.000 ✘ (is string= email (format () "player~D@gate.way" i)) ???? 0.000 ✘ (is string= name (format () "Player ~D" i)) ???? 0.000 ✘ (is vector= hash #(1)) ???? 0.000 ✘ (is vector= salt #(1)) ???? 0.000 ✔ (is eq activatedp (oddp i)) ???? 0.000 ✘ (true (typep creation-time 'timestamp)) ???? 0.000 ✘ (true (typep last-edit-time 'timestamp)) ???? 0.000 ✘ (is = id i) ???? 0.000 ✘ (is string= login (format () "player~D" i)) ???? 0.000 ✘ (is string= email (format () "player~D@gate.way" i)) ???? 0.000 ✘ (is string= name (format () "Player ~D" i)) ???? 0.000 ✘ (is vector= hash #(1)) ???? 0.000 ✘ (is vector= salt #(1)) ???? 0.000 ✘ (is eq activatedp (oddp i)) ???? 0.000 ✘ (true (typep creation-time 'timestamp)) ???? 0.000 ✘ (true (typep last-edit-time 'timestamp)) ???? 0.000 ✘ (is = id i) ???? 0.000 ✘ (is string= login (format () "player~D" i)) ???? 0.000 ✘ (is string= email (format () "player~D@gate.way" i)) ???? 0.000 ✘ (is string= name (format () "Player ~D" i)) ???? 0.000 ✘ (is vector= hash #(1)) ???? 0.000 ✘ (is vector= salt #(1)) ???? 0.000 ✔ (is eq activatedp (oddp i)) ???? 0.000 ✘ (true (typep creation-time 'timestamp)) ???? 0.000 ✘ (true (typep last-edit-time 'timestamp)) ???? 0.000 ✘ (is = id i) ???? 0.000 ✘ (is string= login (format () "player~D" i)) ???? 0.000 ✘ (is string= email (format () "player~D@gate.way" i)) ???? 0.000 ✘ (is string= name (format () "Player ~D" i)) ???? 0.000 ✘ (is vector= hash #(1)) ???? 0.000 ✘ (is vector= salt #(1)) ???? 0.000 ✘ (is eq activatedp (oddp i)) ???? 0.000 ✘ (true (typep creation-time 'timestamp)) ???? 0.000 ✘ (true (typep last-edit-time 'timestamp)) ???? 0.000 ✘ (is = id i) ???? 0.000 ✘ (is string= login (format () "player~D" i)) ???? 0.000 ✘ (is string= email (format () "player~D@gate.way" i)) ???? 0.000 ✘ (is string= name (format () "Player ~D" i)) ???? 0.000 ✘ (is vector= hash #(1)) ???? 0.000 ✘ (is vector= salt #(1)) ???? 0.000 ✔ (is eq activatedp (oddp i)) ???? 0.000 ✘ (true (typep creation-time 'timestamp)) ???? 0.000 ✘ (true (typep last-edit-time 'timestamp)) 0.020 ✘ GATEWAY.SQL/TEST::PLAYER-SELECT-DUMMY 2.363 ✘ GATEWAY.SQL/TEST::SQL-SELECT-DUMMY ;; Summary: Passed: 4 Failed: 68 Skipped: 0 ;; Failures: 1/ 1 tests failed in GATEWAY.SQL/TEST::SQL-SELECT-DUMMY 68/ 72 tests failed in GATEWAY.SQL/TEST::PLAYER-SELECT-DUMMY 68/ 72 tests failed in GATEWAY.SQL/TEST::PLAYER-SELECT-DUMMY In test case ????, phase ????, step ????: The test form i evaluated to 1 when () was expected to be equal under =. In test case ????, phase ????, step ????: The test form (format () "player~D" i) evaluated to "player1" when () was expected to be equal under STRING=. In test case ????, phase ????, step ????: The test form (format () "player~D@gate.way" i) evaluated to "player1@gate.way" when () was expected to be equal under STRING=. In test case ????, phase ????, step ????: The test form (format () "Player ~D" i) evaluated to "Player 1" when () was expected to be equal under STRING=. In test case ????, phase ????, step ????: The test form #(1) evaluated to #(1) when () was expected to be equal under VECTOR=. In test case ????, phase ????, step ????: The test form #(1) evaluated to #(1) when () was expected to be equal under VECTOR=. In test case ????, phase ????, step ????: The test form (oddp i) evaluated to t when () was expected to be equal under EQ. In test case ????, phase ????, step ????: The test form (typep creation-time 'timestamp) evaluated to () when t was expected to be equal under GEQ. In test case ????, phase ????, step ????: The test form (typep last-edit-time 'timestamp) evaluated to () when t was expected to be equal under GEQ. In test case ????, phase ????, step ????: The test form i evaluated to 2 when () was expected to be equal under =. In test case ????, phase ????, step ????: The test form (format () "player~D" i) evaluated to "player2" when () was expected to be equal under STRING=. In test case ????, phase ????, step ????: The test form (format () "player~D@gate.way" i) evaluated to "player2@gate.way" when () was expected to be equal under STRING=. In test case ????, phase ????, step ????: The test form (format () "Player ~D" i) evaluated to "Player 2" when () was expected to be equal under STRING=. In test case ????, phase ????, step ????: The test form #(1) evaluated to #(1) when () was expected to be equal under VECTOR=. In test case ????, phase ????, step ????: The test form #(1) evaluated to #(1) when () was expected to be equal under VECTOR=. In test case ????, phase ????, step ????: The test form (typep creation-time 'timestamp) evaluated to () when t was expected to be equal under GEQ. In test case ????, phase ????, step ????: The test form (typep last-edit-time 'timestamp) evaluated to () when t was expected to be equal under GEQ. In test case ????, phase ????, step ????: The test form i evaluated to 3 when () was expected to be equal under =. In test case ????, phase ????, step ????: The test form (format () "player~D" i) evaluated to "player3" when () was expected to be equal under STRING=. In test case ????, phase ????, step ????: The test form (format () "player~D@gate.way" i) evaluated to "player3@gate.way" when () was expected to be equal under STRING=. In test case ????, phase ????, step ????: The test form (format () "Player ~D" i) evaluated to "Player 3" when () was expected to be equal under STRING=. In test case ????, phase ????, step ????: The test form #(1) evaluated to #(1) when () was expected to be equal under VECTOR=. In test case ????, phase ????, step ????: The test form #(1) evaluated to #(1) when () was expected to be equal under VECTOR=. In test case ????, phase ????, step ????: The test form (oddp i) evaluated to t when () was expected to be equal under EQ. In test case ????, phase ????, step ????: The test form (typep creation-time 'timestamp) evaluated to () when t was expected to be equal under GEQ. In test case ????, phase ????, step ????: The test form (typep last-edit-time 'timestamp) evaluated to () when t was expected to be equal under GEQ. In test case ????, phase ????, step ????: The test form i evaluated to 4 when () was expected to be equal under =. In test case ????, phase ????, step ????: The test form (format () "player~D" i) evaluated to "player4" when () was expected to be equal under STRING=. In test case ????, phase ????, step ????: The test form (format () "player~D@gate.way" i) evaluated to "player4@gate.way" when () was expected to be equal under STRING=. In test case ????, phase ????, step ????: The test form (format () "Player ~D" i) evaluated to "Player 4" when () was expected to be equal under STRING=. In test case ????, phase ????, step ????: The test form #(1) evaluated to #(1) when () was expected to be equal under VECTOR=. In test case ????, phase ????, step ????: The test form #(1) evaluated to #(1) when () was expected to be equal under VECTOR=. In test case ????, phase ????, step ????: The test form (typep creation-time 'timestamp) evaluated to () when t was expected to be equal under GEQ. In test case ????, phase ????, step ????: The test form (typep last-edit-time 'timestamp) evaluated to () when t was expected to be equal under GEQ. In test case ????, phase ????, step ????: The test form i evaluated to 5 when () was expected to be equal under =. In test case ????, phase ????, step ????: The test form (format () "player~D" i) evaluated to "player5" when () was expected to be equal under STRING=. In test case ????, phase ????, step ????: The test form (format () "player~D@gate.way" i) evaluated to "player5@gate.way" when () was expected to be equal under STRING=. In test case ????, phase ????, step ????: The test form (format () "Player ~D" i) evaluated to "Player 5" when () was expected to be equal under STRING=. In test case ????, phase ????, step ????: The test form #(1) evaluated to #(1) when () was expected to be equal under VECTOR=. In test case ????, phase ????, step ????: The test form #(1) evaluated to #(1) when () was expected to be equal under VECTOR=. In test case ????, phase ????, step ????: The test form (oddp i) evaluated to t when () was expected to be equal under EQ. In test case ????, phase ????, step ????: The test form (typep creation-time 'timestamp) evaluated to () when t was expected to be equal under GEQ. In test case ????, phase ????, step ????: The test form (typep last-edit-time 'timestamp) evaluated to () when t was expected to be equal under GEQ. In test case ????, phase ????, step ????: The test form i evaluated to 6 when () was expected to be equal under =. In test case ????, phase ????, step ????: The test form (format () "player~D" i) evaluated to "player6" when () was expected to be equal under STRING=. In test case ????, phase ????, step ????: The test form (format () "player~D@gate.way" i) evaluated to "player6@gate.way" when () was expected to be equal under STRING=. In test case ????, phase ????, step ????: The test form (format () "Player ~D" i) evaluated to "Player 6" when () was expected to be equal under STRING=. In test case ????, phase ????, step ????: The test form #(1) evaluated to #(1) when () was expected to be equal under VECTOR=. In test case ????, phase ????, step ????: The test form #(1) evaluated to #(1) when () was expected to be equal under VECTOR=. In test case ????, phase ????, step ????: The test form (typep creation-time 'timestamp) evaluated to () when t was expected to be equal under GEQ. In test case ????, phase ????, step ????: The test form (typep last-edit-time 'timestamp) evaluated to () when t was expected to be equal under GEQ. In test case ????, phase ????, step ????: The test form i evaluated to 7 when () was expected to be equal under =. In test case ????, phase ????, step ????: The test form (format () "player~D" i) evaluated to "player7" when () was expected to be equal under STRING=. In test case ????, phase ????, step ????: The test form (format () "player~D@gate.way" i) evaluated to "player7@gate.way" when () was expected to be equal under STRING=. In test case ????, phase ????, step ????: The test form (format () "Player ~D" i) evaluated to "Player 7" when () was expected to be equal under STRING=. In test case ????, phase ????, step ????: The test form #(1) evaluated to #(1) when () was expected to be equal under VECTOR=. In test case ????, phase ????, step ????: The test form #(1) evaluated to #(1) when () was expected to be equal under VECTOR=. In test case ????, phase ????, step ????: The test form (oddp i) evaluated to t when () was expected to be equal under EQ. In test case ????, phase ????, step ????: The test form (typep creation-time 'timestamp) evaluated to () when t was expected to be equal under GEQ. In test case ????, phase ????, step ????: The test form (typep last-edit-time 'timestamp) evaluated to () when t was expected to be equal under GEQ. In test case ????, phase ????, step ????: The test form i evaluated to 8 when () was expected to be equal under =. In test case ????, phase ????, step ????: The test form (format () "player~D" i) evaluated to "player8" when () was expected to be equal under STRING=. In test case ????, phase ????, step ????: The test form (format () "player~D@gate.way" i) evaluated to "player8@gate.way" when () was expected to be equal under STRING=. In test case ????, phase ????, step ????: The test form (format () "Player ~D" i) evaluated to "Player 8" when () was expected to be equal under STRING=. In test case ????, phase ????, step ????: The test form #(1) evaluated to #(1) when () was expected to be equal under VECTOR=. In test case ????, phase ????, step ????: The test form #(1) evaluated to #(1) when () was expected to be equal under VECTOR=. In test case ????, phase ????, step ????: The test form (typep creation-time 'timestamp) evaluated to () when t was expected to be equal under GEQ. In test case ????, phase ????, step ????: The test form (typep last-edit-time 'timestamp) evaluated to () when t was expected to be equal under GEQ. NIL SQL/TEST>
Raw
Annotate
Repaste
Annotations
common-lisp
default
phoe
2019.03.25 14:28:50
10: (PARACHUTE:EVAL-IN-CONTEXT #<PARACHUTE:PLAIN 1 results> #<PARACHUTE:TEST GATEWAY.SQL/TEST::SQL-SELECT-DUMMY>) 11: ((METHOD PARACHUTE:EVAL-IN-CONTEXT :AROUND (T (EQL #<PARACHUTE:TEST GATEWAY.SQL/TEST::SQL-SELECT-DUMMY>))) #<PARACHUTE:PLAIN 1 results> #<PARACHUTE:TEST GATEWAY.SQL/TEST::SQL-SELECT-DUMMY>) "Installing dummy data." 12: ((METHOD PARACHUTE:EVAL-IN-CONTEXT :AROUND (T T)) #<PARACHUTE:PLAIN 1 results> #<PARACHUTE:TEST GATEWAY.SQL/TEST::SQL-SELECT-DUMMY>) 13: ((METHOD PARACHUTE:EVAL-IN-CONTEXT (T PARACHUTE:TEST)) #<PARACHUTE:PLAIN 1 results> #<PARACHUTE:TEST GATEWAY.SQL/TEST::SQL-SELECT-DUMMY>) 13: (METHOD PARACHUTE:EVAL-IN-CONTEXT (T PARACHUTE:TEST)) returned NIL 12: (METHOD PARACHUTE:EVAL-IN-CONTEXT :AROUND (T T)) returned NIL "Cleanup." 11: (METHOD PARACHUTE:EVAL-IN-CONTEXT :AROUND (T (EQL #<PARACHUTE:TEST GATEWAY.SQL/TEST::SQL-SELECT-DUMMY>))) returned NIL 10: PARACHUTE:EVAL-IN-CONTEXT returned NIL
Raw
Repaste