tests/GDBMIParserTests.st
changeset 99 56b66436a713
parent 97 b17c889076e4
child 101 d8fee2af20b2
--- a/tests/GDBMIParserTests.st	Tue Jan 30 09:18:36 2018 +0000
+++ b/tests/GDBMIParserTests.st	Fri Feb 02 09:46:51 2018 +0000
@@ -117,7 +117,7 @@
 '.
 
     "Created: / 28-05-2014 / 00:05:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 03-06-2014 / 00:23:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 03-02-2018 / 21:43:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !GDBMIParserTests methodsFor:'tests - commands'!
@@ -324,6 +324,25 @@
     self assert: (result value) value = '5'.
 
     "Created: / 19-03-2015 / 07:46:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 03-02-2018 / 21:44:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+test_command_var_create_02
+    | parser events result |
+
+    parser := GDBMIParser 
+            on:'212^error,msg="Cannot instantiate printer for default visualizer"'.
+    parser token2CommandMappingBlock:[:token | GDBMI_var_create new ].
+    events := parser parseOutput.
+
+    self assert:events size == 1.
+    result := events first result.
+
+    self assert: result isError.
+    self assert: (result propertyAt: #msg) = 'Cannot instantiate printer for default visualizer'.
+    self assert: result value isNil.
+
+    "Created: / 02-02-2018 / 09:27:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !GDBMIParserTests methodsFor:'tests - examples'!