Mercurial Mercurial > hg > jv-libgdbs / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Moved GDBSimulatorProcessTests to package jv:libgdbs/tests
authorJan Vrany <jan.vrany@fit.cvut.cz>
Sun, 06 Jul 2014 10:27:25 +0100
changeset 30 520ddea6851f
parent 29 6f19bc300b1f
child 31 1d8d532f27fd
child 32 d9c96b33afd6
Moved GDBSimulatorProcessTests to package jv:libgdbs/tests
GDBMI_trace_list_variables.st file | annotate | diff | comparison | revisions
GDBSimulatorProcessTests.st file | annotate | diff | comparison | revisions
abbrev.stc file | annotate | diff | comparison | revisions
jv_libgdbs.st file | annotate | diff | comparison | revisions
libgdbs.rc file | annotate | diff | comparison | revisions
tests/GDBDebuggerTests.st file | annotate | diff | comparison | revisions
tests/GDBSimulatorProcessTests.st file | annotate | diff | comparison | revisions
tests/Make.proto file | annotate | diff | comparison | revisions
tests/Make.spec file | annotate | diff | comparison | revisions
tests/abbrev.stc file | annotate | diff | comparison | revisions
tests/bc.mak file | annotate | diff | comparison | revisions
tests/jv_libgdbs_tests.st file | annotate | diff | comparison | revisions
tests/libInit.cc file | annotate | diff | comparison | revisions
tests/tests.rc file | annotate | diff | comparison | revisions 
--- a/GDBMI_trace_list_variables.st	Sat Jul 05 22:22:15 2014 +0100
+++ b/GDBMI_trace_list_variables.st	Sun Jul 06 10:27:25 2014 +0100
@@ -7,9 +7,17 @@
 	category:'GDB-Core-Commands-MI'
 !
 
+
 !GDBMI_trace_list_variables methodsFor:'accessing'!
 
 operation
 	^ 'trace-list-variables'
 ! !
 
+!GDBMI_trace_list_variables class methodsFor:'documentation'!
+
+version_HG
+
+    ^ '$Changeset: <not expanded> $'
+! !
+
--- a/GDBSimulatorProcessTests.st	Sat Jul 05 22:22:15 2014 +0100
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,33 +0,0 @@
-"{ Package: 'jv:libgdbs' }"
-
-TestCase subclass:#GDBSimulatorProcessTests
-	instanceVariableNames:'events simulator debugger'
-	classVariableNames:''
-	poolDictionaries:'GDBCommandStatus'
-	category:'GDB-Private-Tests'
-!
-
-!GDBSimulatorProcessTests methodsFor:'running'!
-
-tearDown
-    simulator notNil ifTrue:[ simulator stop ].
-    debugger notNil ifTrue:[ debugger release ].
-    events := nil.
-
-    "Created: / 24-06-2014 / 13:10:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-! !
-
-!GDBSimulatorProcessTests methodsFor:'tests'!
-
-test_01
-    events := OrderedCollection new.
-    simulator := GDBSimulatorProcess new record: GDBSimulatorResource session_factorial_01.
-    simulator start.
-    debugger := GDBDebugger newWithProcess: simulator.
-    debugger announcer on: GDBEvent do:[:ev | events add: ev ].
-
-    self assert: events isEmpty.
-
-    "Created: / 24-06-2014 / 13:08:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-! !
-
--- a/abbrev.stc	Sat Jul 05 22:22:15 2014 +0100
+++ b/abbrev.stc	Sun Jul 06 10:27:25 2014 +0100
@@ -11,6 +11,7 @@
 GDBPTY GDBPTY jv:libgdbs 'GDB-Private' 0
 GDBProcess GDBProcess jv:libgdbs 'GDB-Private' 0
 GDBSessionRecord GDBSessionRecord jv:libgdbs 'GDB-Private-Simulator' 0
+GDBSimulatorResource GDBSimulatorResource jv:libgdbs 'GDB-Resources' 1
 GDBValueDescriptor GDBValueDescriptor jv:libgdbs 'GDB-Private-Descriptors' 0
 GDBValueDescriptorError GDBValueDescriptorError jv:libgdbs 'GDB-Private-Descriptors' 1
 jv_libgdbs jv_libgdbs jv:libgdbs '* Projects & Packages *' 3
@@ -29,7 +30,6 @@
 GDBPrimitiveValueDescriptor GDBPrimitiveValueDescriptor jv:libgdbs 'GDB-Private-Descriptors' 0
 GDBSessionRecorder GDBSessionRecorder jv:libgdbs 'GDB-Private-Simulator' 0
 GDBSimulatorProcess GDBSimulatorProcess jv:libgdbs 'GDB-Private-Simulator' 0
-GDBSimulatorProcessTests GDBSimulatorProcessTests jv:libgdbs 'GDB-Private-Tests' 1
 GDBStreamOutputEvent GDBStreamOutputEvent jv:libgdbs 'GDB-Core-Events' 0
 GDBUnixProcess GDBUnixProcess jv:libgdbs 'GDB-Private' 0
 GDBAddresValueDescriptor GDBAddresValueDescriptor jv:libgdbs 'GDB-Private-Descriptors' 0
@@ -166,4 +166,3 @@
 GDBThreadGroupAddedEvent GDBThreadGroupAddedEvent jv:libgdbs 'GDB-Core-Events' 0
 GDBThreadGroupExitedEvent GDBThreadGroupExitedEvent jv:libgdbs 'GDB-Core-Events' 0
 GDBThreadGroupStartedEvent GDBThreadGroupStartedEvent jv:libgdbs 'GDB-Core-Events' 0
-GDBSimulatorResource GDBSimulatorResource jv:libgdbs 'GDB-Resources' 1
--- a/jv_libgdbs.st	Sat Jul 05 22:22:15 2014 +0100
+++ b/jv_libgdbs.st	Sun Jul 06 10:27:25 2014 +0100
@@ -28,9 +28,9 @@
      by searching along the inheritance chain of all of my classes."
 
     ^ #(
-        #'stx:goodies/announcements'    "Announcement - superclass of GDBAsyncEvent "
-        #'stx:goodies/sunit'    "TestAsserter - superclass of GDBSimulatorProcessTests "
-        #'stx:libbasic'    "ArithmeticValue - extended "
+        #'stx:goodies/announcements'    "Announcement - superclass of GDBAsyncEvent"
+        #'stx:goodies/sunit'    "TestAsserter - superclass of GDBSimulatorResource"
+        #'stx:libbasic'    "ArithmeticValue - extended"
     )
 !
 
@@ -75,6 +75,7 @@
         GDBPTY
         GDBProcess
         GDBSessionRecord
+        (GDBSimulatorResource autoload)
         GDBValueDescriptor
         GDBValueDescriptorError
         #'jv_libgdbs'
@@ -93,7 +94,6 @@
         GDBPrimitiveValueDescriptor
         GDBSessionRecorder
         GDBSimulatorProcess
-        (GDBSimulatorProcessTests autoload)
         GDBStreamOutputEvent
         GDBUnixProcess
         GDBAddresValueDescriptor
@@ -230,7 +230,6 @@
         GDBThreadGroupAddedEvent
         GDBThreadGroupExitedEvent
         GDBThreadGroupStartedEvent
-        (GDBSimulatorResource autoload)
     )
 !
 
--- a/libgdbs.rc	Sat Jul 05 22:22:15 2014 +0100
+++ b/libgdbs.rc	Sun Jul 06 10:27:25 2014 +0100
@@ -25,7 +25,7 @@
       VALUE "LegalCopyright", "My CopyRight or CopyLeft\0"
       VALUE "ProductName", "LibraryName\0"
       VALUE "ProductVersion", "6.2.4.0\0"
-      VALUE "ProductDate", "Tue, 24 Jun 2014 22:42:06 GMT\0"
+      VALUE "ProductDate", "Sun, 06 Jul 2014 09:26:19 GMT\0"
     END
 
   END
--- a/tests/GDBDebuggerTests.st	Sat Jul 05 22:22:15 2014 +0100
+++ b/tests/GDBDebuggerTests.st	Sun Jul 06 10:27:25 2014 +0100
@@ -53,3 +53,10 @@
     "Created: / 24-06-2014 / 09:09:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!GDBDebuggerTests class methodsFor:'documentation'!
+
+version_HG
+
+    ^ '$Changeset: <not expanded> $'
+! !
+
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/tests/GDBSimulatorProcessTests.st	Sun Jul 06 10:27:25 2014 +0100
@@ -0,0 +1,68 @@
+"{ Package: 'jv:libgdbs/tests' }"
+
+TestCase subclass:#GDBSimulatorProcessTests
+	instanceVariableNames:'events simulator debugger'
+	classVariableNames:''
+	poolDictionaries:'GDBCommandStatus'
+	category:'GDB-Private-Tests'
+!
+
+!GDBSimulatorProcessTests methodsFor:'running'!
+
+tearDown
+    simulator notNil ifTrue:[ simulator stop ].
+    debugger notNil ifTrue:[ debugger release ].
+    events := nil.
+
+    "Created: / 24-06-2014 / 13:10:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!GDBSimulatorProcessTests methodsFor:'tests'!
+
+test_01
+    events := OrderedCollection new.
+    simulator := GDBSimulatorProcess new record: GDBSimulatorResource session_factorial_01.
+    simulator start.
+    debugger := GDBDebugger newWithProcess: simulator.
+    Delay waitForMilliseconds:100.  
+
+    debugger announcer on: GDBEvent do:[:ev | events add: ev ].
+
+    self assert: events isEmpty.
+
+    debugger send: (GDBMI_file_exec_and_symbols new arguments: {'/home/jv/Private/Projects/SmalltalkX/sources/branches/jv1/build/jv/libgdbs/tests/c/factorial'}).
+
+    self assert: events size == 2.
+    self assert: events first class == GDBCommandEvent.
+    self assert: events first command class == GDBMI_file_exec_and_symbols.
+        
+    self assert: events second class == GDBCommandResultEvent.
+    self assert: events second result command == events first command.
+
+    "Created: / 24-06-2014 / 13:08:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 05-07-2014 / 22:54:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+test_02
+    events := OrderedCollection new.
+    simulator := GDBSimulatorProcess new record: GDBSimulatorResource session_factorial_01.
+    simulator start.
+    debugger := GDBDebugger newWithProcess: simulator.
+    Delay waitForMilliseconds:100.  
+
+    debugger announcer on: GDBEvent do:[:ev | events add: ev ].
+
+    self assert: events isEmpty.
+
+    debugger send: (GDBMI_file_exec_and_symbols new arguments: {'bla bla'}).
+
+    self assert: events size == 2.
+    self assert: events first class == GDBCommandEvent.
+    self assert: events first command class == GDBMI_file_exec_and_symbols.
+        
+    self assert: events second class == GDBCommandResultEvent.
+    self assert: events second result command == events first command.
+
+    "Created: / 05-07-2014 / 22:55:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
--- a/tests/Make.proto	Sat Jul 05 22:22:15 2014 +0100
+++ b/tests/Make.proto	Sun Jul 06 10:27:25 2014 +0100
@@ -130,6 +130,7 @@
 $(OUTDIR)GDBDebuggerTests.$(O) GDBDebuggerTests.$(H): GDBDebuggerTests.st $(INCLUDE_TOP)/stx/goodies/sunit/TestAsserter.$(H) $(INCLUDE_TOP)/stx/goodies/sunit/TestCase.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
 $(OUTDIR)GDBInternalPipeStreamTests.$(O) GDBInternalPipeStreamTests.$(H): GDBInternalPipeStreamTests.st $(INCLUDE_TOP)/stx/goodies/sunit/TestAsserter.$(H) $(INCLUDE_TOP)/stx/goodies/sunit/TestCase.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
 $(OUTDIR)GDBParserTests.$(O) GDBParserTests.$(H): GDBParserTests.st $(INCLUDE_TOP)/jv/libgdbs/GDBCommandStatus.$(H) $(INCLUDE_TOP)/stx/goodies/sunit/TestAsserter.$(H) $(INCLUDE_TOP)/stx/goodies/sunit/TestCase.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)GDBSimulatorProcessTests.$(O) GDBSimulatorProcessTests.$(H): GDBSimulatorProcessTests.st $(INCLUDE_TOP)/jv/libgdbs/GDBCommandStatus.$(H) $(INCLUDE_TOP)/stx/goodies/sunit/TestAsserter.$(H) $(INCLUDE_TOP)/stx/goodies/sunit/TestCase.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
 $(OUTDIR)jv_libgdbs_tests.$(O) jv_libgdbs_tests.$(H): jv_libgdbs_tests.st $(INCLUDE_TOP)/stx/libbasic/LibraryDefinition.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(INCLUDE_TOP)/stx/libbasic/ProjectDefinition.$(H) $(STCHDR)
 
 # ENDMAKEDEPEND --- do not remove this line
--- a/tests/Make.spec	Sat Jul 05 22:22:15 2014 +0100
+++ b/tests/Make.spec	Sun Jul 06 10:27:25 2014 +0100
@@ -53,6 +53,7 @@
 	GDBDebuggerTests \
 	GDBInternalPipeStreamTests \
 	GDBParserTests \
+	GDBSimulatorProcessTests \
 	jv_libgdbs_tests \
 
 
@@ -62,6 +63,7 @@
     $(OUTDIR_SLASH)GDBDebuggerTests.$(O) \
     $(OUTDIR_SLASH)GDBInternalPipeStreamTests.$(O) \
     $(OUTDIR_SLASH)GDBParserTests.$(O) \
+    $(OUTDIR_SLASH)GDBSimulatorProcessTests.$(O) \
     $(OUTDIR_SLASH)jv_libgdbs_tests.$(O) \
 
 
--- a/tests/abbrev.stc	Sat Jul 05 22:22:15 2014 +0100
+++ b/tests/abbrev.stc	Sun Jul 06 10:27:25 2014 +0100
@@ -4,4 +4,5 @@
 GDBDebuggerTests GDBDebuggerTests jv:libgdbs/tests 'GDB-Core-Tests' 1
 GDBInternalPipeStreamTests GDBInternalPipeStreamTests jv:libgdbs/tests 'GDB-Support-Tests' 1
 GDBParserTests GDBParserTests jv:libgdbs/tests 'GDB-Private-Tests' 1
+GDBSimulatorProcessTests GDBSimulatorProcessTests jv:libgdbs/tests 'GDB-Private-Tests' 1
 jv_libgdbs_tests jv_libgdbs_tests jv:libgdbs/tests '* Projects & Packages *' 3
--- a/tests/bc.mak	Sat Jul 05 22:22:15 2014 +0100
+++ b/tests/bc.mak	Sun Jul 06 10:27:25 2014 +0100
@@ -76,6 +76,7 @@
 $(OUTDIR)GDBDebuggerTests.$(O) GDBDebuggerTests.$(H): GDBDebuggerTests.st $(INCLUDE_TOP)\stx\goodies\sunit\TestAsserter.$(H) $(INCLUDE_TOP)\stx\goodies\sunit\TestCase.$(H) $(INCLUDE_TOP)\stx\libbasic\Object.$(H) $(STCHDR)
 $(OUTDIR)GDBInternalPipeStreamTests.$(O) GDBInternalPipeStreamTests.$(H): GDBInternalPipeStreamTests.st $(INCLUDE_TOP)\stx\goodies\sunit\TestAsserter.$(H) $(INCLUDE_TOP)\stx\goodies\sunit\TestCase.$(H) $(INCLUDE_TOP)\stx\libbasic\Object.$(H) $(STCHDR)
 $(OUTDIR)GDBParserTests.$(O) GDBParserTests.$(H): GDBParserTests.st $(INCLUDE_TOP)\jv\libgdbs\GDBCommandStatus.$(H) $(INCLUDE_TOP)\stx\goodies\sunit\TestAsserter.$(H) $(INCLUDE_TOP)\stx\goodies\sunit\TestCase.$(H) $(INCLUDE_TOP)\stx\libbasic\Object.$(H) $(STCHDR)
+$(OUTDIR)GDBSimulatorProcessTests.$(O) GDBSimulatorProcessTests.$(H): GDBSimulatorProcessTests.st $(INCLUDE_TOP)\jv\libgdbs\GDBCommandStatus.$(H) $(INCLUDE_TOP)\stx\goodies\sunit\TestAsserter.$(H) $(INCLUDE_TOP)\stx\goodies\sunit\TestCase.$(H) $(INCLUDE_TOP)\stx\libbasic\Object.$(H) $(STCHDR)
 $(OUTDIR)jv_libgdbs_tests.$(O) jv_libgdbs_tests.$(H): jv_libgdbs_tests.st $(INCLUDE_TOP)\stx\libbasic\LibraryDefinition.$(H) $(INCLUDE_TOP)\stx\libbasic\Object.$(H) $(INCLUDE_TOP)\stx\libbasic\ProjectDefinition.$(H) $(STCHDR)
 
 # ENDMAKEDEPEND --- do not remove this line
--- a/tests/jv_libgdbs_tests.st	Sat Jul 05 22:22:15 2014 +0100
+++ b/tests/jv_libgdbs_tests.st	Sun Jul 06 10:27:25 2014 +0100
@@ -28,9 +28,9 @@
      by searching along the inheritance chain of all of my classes."
 
     ^ #(
-        #'jv:libgdbs'    "GDBCommandStatus - shared pool used by GDBParserTests "
-        #'stx:goodies/sunit'    "TestAsserter - superclass of GDBDebuggerTests "
-        #'stx:libbasic'    "LibraryDefinition - superclass of jv_libgdbs_tests "
+        #'jv:libgdbs'    "GDBCommandStatus - shared pool used by GDBParserTests"
+        #'stx:goodies/sunit'    "TestAsserter - superclass of GDBDebuggerTests"
+        #'stx:libbasic'    "LibraryDefinition - superclass of jv_libgdbs_tests"
     )
 !
 
@@ -68,6 +68,7 @@
         GDBDebuggerTests
         GDBInternalPipeStreamTests
         GDBParserTests
+        GDBSimulatorProcessTests
         #'jv_libgdbs_tests'
     )
 !
--- a/tests/libInit.cc	Sat Jul 05 22:22:15 2014 +0100
+++ b/tests/libInit.cc	Sun Jul 06 10:27:25 2014 +0100
@@ -30,6 +30,7 @@
 _GDBDebuggerTests_Init(pass,__pRT__,snd);
 _GDBInternalPipeStreamTests_Init(pass,__pRT__,snd);
 _GDBParserTests_Init(pass,__pRT__,snd);
+_GDBSimulatorProcessTests_Init(pass,__pRT__,snd);
 _jv_137libgdbs_137tests_Init(pass,__pRT__,snd);
 
 
--- a/tests/tests.rc	Sat Jul 05 22:22:15 2014 +0100
+++ b/tests/tests.rc	Sun Jul 06 10:27:25 2014 +0100
@@ -25,7 +25,7 @@
       VALUE "LegalCopyright", "My CopyRight or CopyLeft\0"
       VALUE "ProductName", "LibraryName\0"
       VALUE "ProductVersion", "6.2.4.0\0"
-      VALUE "ProductDate", "Tue, 24 Jun 2014 22:42:09 GMT\0"
+      VALUE "ProductDate", "Sun, 06 Jul 2014 09:26:21 GMT\0"
     END
 
   END
hg/jv-libgdbs