TestCase subclass:#GDBMIParserTests

!GDBMIParserTests methodsFor:'accessing'!

!GDBMIParserTests methodsFor:'accessing-properties'!

!GDBMIParserTests methodsFor:'running'!

!GDBMIParserTests methodsFor:'tests - C strings'!

    self assert:(GDBMIParser on:'"Hello" xxx') parseCString = 'Hello'.

    self assert:(GDBMIParser on:'"\"Hello\"" xxx') parseCString = '"Hello"'.

    self assert:(GDBMIParser on:'"\H\e\l\l\o" xxx') parseCString = 'Hello'.

    self assert:(GDBMIParser on:'"Hel\nlo" xxx') parseCString = 'Hel

lo'.

    self assert:(GDBMIParser on:'"X\xE1X" xxx') parseCString = 'XáX'.

    self 

        assert:(GDBMIParser 

                on:'"warning: File \"/home/jv/Private/Projects/SmalltalkX/sources/branches/jv1/build/stx/.gdbinit\" auto-loading has been declined by your `auto-load safe-path'' set to \"$debugdir:$datadir/auto-load\".\n"') 

                    parseCString 

                    = 'warning: File "/home/jv/Private/Projects/SmalltalkX/sources/branches/jv1/build/stx/.gdbinit" auto-loading has been declined by your `auto-load safe-path'' set to "$debugdir:$datadir/auto-load".

!GDBMIParserTests methodsFor:'tests - commands'!

    command := (GDBMIParser on:'b factorial') parseCommand.

    self assert:command isCLICommand.

    self assert:command token isNil.

    self assert:command value = 'b factorial'.

    command := (GDBMIParser on:'-gdb-exit') parseCommand.

    self assert:command isMICommand.

    self assert:command class == GDBMI_gdb_exit.

    self assert:command arguments isEmpty

!GDBMIParserTests methodsFor:'tests - commands reponses'!

    | parser  events |

    parser := GDBMIParser 

            on:'1^done,BreakpointTable={nr_rows="1",nr_cols="6",hdr=[{width="3",alignment="-1",col_name="number",colhdr="Num"},{width="14",alignment="-1",col_name="type",colhdr="Type"},{width="4",alignment="-1",col_name="disp",colhdr="Disp"},{width="3",alignment="-1",col_name="enabled",colhdr="Enb"},{width="10",alignment="-1",col_name="addr",colhdr="Address"},{width="40",alignment="2",col_name="what",colhdr="What"}],body=[bkpt={number="1",type="breakpoint",disp="keep",enabled="y",addr="0x000100d0",func="main",file="hello.c",fullname="/home/foo/hello.c",line="5",thread-groups=["i1"],times="0",ignore="3"}]}

    parser token2CommandMappingBlock:[:token | GDBMI_break_list new ].

    self assert:events size == 1.

    self assert:(events first result propertyAt:'BreakpointTable') notNil.

    self 

        assert:((events first result propertyAt:'BreakpointTable') at:'body') 

                notNil.

    | parser  events |

    parser := GDBMIParser 

            on:'1^done,stack=[frame={level="0",addr="0x00010734",func="callee4",file="../../../devo/gdb/testsuite/gdb.mi/basics.c",fullname="/home/foo/bar/devo/gdb/testsuite/gdb.mi/basics.c",line="8"},frame={level="1",addr="0x0001076c",func="callee3",file="../../../devo/gdb/testsuite/gdb.mi/basics.c",fullname="/home/foo/bar/devo/gdb/testsuite/gdb.mi/basics.c",line="17"},frame={level="2",addr="0x0001078c",func="callee2",file="../../../devo/gdb/testsuite/gdb.mi/basics.c",fullname="/home/foo/bar/devo/gdb/testsuite/gdb.mi/basics.c",line="22"},frame={level="3",addr="0x000107b4",func="callee1",file="../../../devo/gdb/testsuite/gdb.mi/basics.c",fullname="/home/foo/bar/devo/gdb/testsuite/gdb.mi/basics.c",line="27"},frame={level="4",addr="0x000107e0",func="main",file="../../../devo/gdb/testsuite/gdb.mi/basics.c",fullname="/home/foo/bar/devo/gdb/testsuite/gdb.mi/basics.c",line="32"}]

    parser token2CommandMappingBlock:[:token | GDBMI_stack_list_frames new ].

    self assert:events size == 1.

    self assert:(events first result propertyAt:'stack') size == 5.

!GDBMIParserTests methodsFor:'tests - examples'!

    | parser  events |

    parser := GDBMIParser 

            on:'^done,bkpt={number="1",type="breakpoint",disp="keep",enabled="y",addr="0x08048564",func="main",file="myprog.c",fullname="/home/nickrob/myprog.c",line="68",thread-groups=["i1"],times="0"}

    self assert:events size == 1.

    self assert:events first isCommandResultEvent.

    self assert:events first result status == CommandStatusDone.

    self 

        assert:((events first result propertyAt:'bkpt') at:'addr') = '0x08048564'

    | parser  events |

    parser := GDBMIParser on:'1234*running

    self assert:events size == 2.

    self assert:events first token == 1234.

    self assert:events second isCommandResultEvent.

    self assert:events second result status == CommandStatusDone.

    self assert:events second token == 1234

    | parser  events |

    parser := GDBMIParser 

            on:'~"GNU gdb (GDB) 7.5-ubuntu\n"

    self assert:events size == 7.

    self assert:events first isConsoleOutputEvent.

    self assert:events first value = 'GNU gdb (GDB) 7.5-ubuntu

    self assert:events last isConsoleOutputEvent.

    self assert:events last value = 'done.

    parser := GDBMIParser 

            on:'^done,bkpt={number="1",type="breakpoint",disp="keep",enabled="y",addr="0x0000000000400556",func="main",file="factorial.c",fullname="/home/jv/Private/Projects/SmalltalkX/sources/branches/jv1/build/jv/libgdbs/tests/c/factorial.c",line="12",times="0",original-location="main"}

    self assert:events size == 1.

    self assert:events first result status == CommandStatusDone.

    self assert:((events first result value propertyAt:'bkpt') at:'addr') 

                = '0x0000000000400556'.

    parser := GDBMIParser 

            on:'~"Breakpoint 2 at 0x400527: file factorial.c, line 4.\n"

    self assert:events size == 3.

    self assert:events first isConsoleOutputEvent.

    self assert:events first value 

                = 'Breakpoint 2 at 0x400527: file factorial.c, line 4.

    self assert:events second isNotificationEvent.

    self assert:events second class == GDBBreakpointCreatedEvent.

    self assert:events second type = 'breakpoint-created'.

    self assert:events second breakpoint notNil.

    self assert:events second breakpoint class == GDBBreakpoint.

    self assert:events second breakpoint number = 2.

    self assert:events second breakpoint file = 'factorial.c'.

    parser := GDBMIParser 

            on:'&"info break\n"

    self assert:events size == 5.

    self assert:events first isLogOutputEvent.

    self assert:events first value = 'info break

    self assert:events second isConsoleOutputEvent.

    self assert:events third isConsoleOutputEvent.

    self assert:events fourth isConsoleOutputEvent.

    self assert:events fifth isCommandResultEvent.

    parser := GDBMIParser 

            on:'&"run\n"

    self assert:events size == 6.

    self assert:events third isNotificationEvent.

    self assert:events third type = 'thread-group-started'.

    self assert:events fifth isCommandResultEvent.

    self assert:events fifth result status == CommandStatusDone.

    self assert:events sixth isExecutionEvent.

    self assert:events sixth type = 'running'.

    parser := GDBMIParser 

            on:'=library-loaded,id="/lib64/ld-linux-x86-64.so.2",target-name="/lib64/ld-linux-x86-64.so.2",host-name="/lib64/ld-linux-x86-64.so.2",symbols-loaded="0",thread-group="i1"

    self assert:events size == 7.

    self assert:(events at:7) isExecutionEvent.

    self assert:(events at:7) type = 'stopped'.

!GDBMIParserTests methodsFor:'tests - values'!

    list := (GDBMIParser on:'[]') parseList.

    self assert:list class == Array.

    self assert:list isEmpty.

    list := (GDBMIParser on:'["i1","i2"]') parseList.

    self assert:list size == 2.

    self assert:list first = 'i1'.

    self assert:list second = 'i2'.

    list := (GDBMIParser on:'[["1","2"],"i2"]') parseList.

    self assert:list size == 2.

    self assert:list first size == 2.

    self assert:list first first = '1'.

    self assert:list first second = '2'.

    self assert:list second = 'i2'.

    list := (GDBMIParser 

            on:'[bkpt={number="1",line="2"},bkpt={number="2",line="10"}]') parseList.

    self assert:list size == 2.

    self assert:list first size == 2.

    self assert:(list first at:'number') = '1'.

    self assert:(list first at:'line') = '2'.

    self assert:list second size == 2.

    self assert:(list second at:'number') = '2'.

    self assert:(list second at:'line') = '10'.

    tuple := (GDBMIParser on:'{}') parseTuple.

    self assert:tuple class == Dictionary.

    self assert:tuple isEmpty.

    tuple := (GDBMIParser on:'{p1="XXX"}') parseTuple.

    self assert:tuple class == Dictionary.

    self assert:tuple size == 1.

    self assert:(tuple at:'p1') = 'XXX'.

    tuple := (GDBMIParser on:'{p1=["i1","i2"]}') parseTuple.

    self assert:tuple class == Dictionary.

    self assert:tuple size == 1.

    self assert:(tuple at:'p1') asArray = #( 'i1' 'i2' )

    tuple := (GDBMIParser on:'{p1={x="10",y="10"}}') parseTuple.

    self assert:tuple class == Dictionary.

    self assert:tuple size == 1.

    self assert:(tuple at:'p1') class == Dictionary.

    self assert:((tuple at:'p1') at:'x') = '10'.

    self assert:((tuple at:'p1') at:'y') = '10'.

!GDBMIParserTests methodsFor:'tests - values - typed'!

    self assert:(GDBMIParser on:'"y"') parseValueAsBoolean == true.

    self assert:(GDBMIParser on:'"n"') parseValueAsBoolean == false.

    self assert:(GDBMIParser on:'"no"') parseValueAsBoolean = 'no'.

    self assert:(GDBMIParser on:'"12xyz"') parseValueAsBoolean = '12xyz'.

    self assert:(GDBMIParser on:'"123"') parseValueAsInteger == 123.

    self assert:(GDBMIParser on:'"0"') parseValueAsInteger == 0.

    self assert:(GDBMIParser on:'"no"') parseValueAsInteger = 'no'.

    self assert:(GDBMIParser on:'"12xyz"') parseValueAsInteger = '12xyz'.

    object := (GDBMIParser on:'["123","456"]') parseValueAsListOf:Integer.

    object := (GDBMIParser on:'["123","456"]') parseValueAsListOf:String.

    descriptor := GDBMAContainer forClass:self class.

    object := (GDBMIParser on:'{prop1="123",prop2="y"}') 

    "Modified: / 23-09-2014 / 22:37:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    descriptor := GDBMAContainer forClass:self class.

    descriptor 

        define:#prop1

        as:Array

        of:Integer.

    object := (GDBMIParser on:'{prop1=["123"]}') 

            parseValueAsInstanceOf:self class

            describedBy:descriptor.

    "Modified: / 23-09-2014 / 23:01:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    descriptor := GDBMAContainer forClass:self class.

    object := (GDBMIParser 

            on:'[{prop1="123",prop2="y"},{prop1="789",prop2="n"}]') 

                parseValueAsListOf:self class

                describedBy:descriptor.

    self assert:object size == 2.

    self assert:object first class == self class.

    self assert:object first prop1 == 123.

    self assert:object first prop2.

    self assert:object first properties isEmptyOrNil.

    self assert:object second class == self class.

    self assert:object second prop1 == 789.

    self assert:object second prop2 not.

    self assert:object second properties isEmptyOrNil

    "Modified: / 23-09-2014 / 23:01:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    descriptor := GDBMAContainer forClass:self class.

    object := (GDBMIParser 

            on:'[object={prop1="123",prop2="y"},object={prop1="789",prop2="n"}]') 

                parseValueAsListOf:self class

                describedBy:descriptor.

    self assert:object size == 2.