# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1393967787 -3600
# Node ID 0faf1af6579293c4a420491b977dbe7f04781970
# Parent  27e30ee190b9f4250ca0bf5204ef4fadab6e6b8a
initial checkin

diff -r 27e30ee190b9 -r 0faf1af65792 gui/tests/PPParserDebuggerResultTest.st
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/gui/tests/PPParserDebuggerResultTest.st	Tue Mar 04 22:16:27 2014 +0100
@@ -0,0 +1,38 @@
+"{ Package: 'stx:goodies/petitparser/gui/tests' }"
+
+TestCase subclass:#PPParserDebuggerResultTest
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'PetitGui-Tests'
+!
+
+
+!PPParserDebuggerResultTest methodsFor:'tests'!
+
+testArithmetic
+	| parser result |
+	parser := PPArithmeticParser new.
+	result := PPParserDebuggerResult parse: '1 + 2' with: parser.
+	self assert: result children size = 1.
+	self assert: result children first result = 3
+!
+
+testNumberParser
+	| parser result |
+	parser := PPArithmeticParser new productionAt: #number.
+	result := PPParserDebuggerResult parse: '1' with: parser.
+	self assert: result children isEmpty.
+	self assert: result result = 1
+! !
+
+!PPParserDebuggerResultTest class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/goodies/petitparser/gui/tests/PPParserDebuggerResultTest.st,v 1.1 2014-03-04 21:16:27 cg Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/goodies/petitparser/gui/tests/PPParserDebuggerResultTest.st,v 1.1 2014-03-04 21:16:27 cg Exp $'
+! !
+