Commits

Shlomi Fish committed baf2fbf

Add a direct test for op2assign.

  • Participants
  • Parent commits 1a101d9

Comments (0)

Files changed (1)

lurking-lisp-library/t/op-equal-sign.lisp

 (defun concat-uc (x y)
   (concatenate 'string x (string-upcase y)))
 
+(op2assign concat-uc)
+
 (let ((producer (make-instance 'tap-producer)))
   (init-test producer)
-  (emit-plan producer :plan-argument 3) ; simple plan, three tests planned
+  (emit-plan producer :plan-argument 4) ; simple plan, three tests planned
   (let ((result 28))
     (-= result 4)
     ; TEST
 
     ; TEST
     (emit-result producer :success (equal (concat-uc "foo " "bar") "foo BAR")
-                 :description "Testing concat-uc")
+                 :description "Testing concat-uc"))
 
-    )
+  (let ((string1 "Start "))
+    ; TEST
+    (concat-uc= string1 "end")
+    (emit-result producer :success (equal string1 "Start END")
+                 :description "Testing op2assign directly"))
+
   (finalize-test producer))