--- 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'!