"

jv:libgdbs - GNU Debugger Interface Library

Copyright (C) 2015-now Jan Vrany

This library is free software; you can redistribute it and/or

modify it under the terms of the GNU Lesser General Public

License as published by the Free Software Foundation; either

version 2.1 of the License.

This library is distributed in the hope that it will be useful,

but WITHOUT ANY WARRANTY; without even the implied warranty of

MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU

Lesser General Public License for more details.

You should have received a copy of the GNU Lesser General Public

License along with this library; if not, write to the Free Software

Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA

"

"{ Package: 'jv:libgdbs/tests' }"

"{ NameSpace: Smalltalk }"

TestCase subclass:#GDBTransientDataHolderTests

	instanceVariableNames:'seqNo'

	classVariableNames:''

	poolDictionaries:'GDBCommandStatus'

	category:'GDB-Private-Tests'

!

!GDBTransientDataHolderTests class methodsFor:'documentation'!

copyright

"

jv:libgdbs - GNU Debugger Interface Library

Copyright (C) 2015-now Jan Vrany

This library is free software; you can redistribute it and/or

modify it under the terms of the GNU Lesser General Public

License as published by the Free Software Foundation; either

version 2.1 of the License.

This library is distributed in the hope that it will be useful,

but WITHOUT ANY WARRANTY; without even the implied warranty of

MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU

Lesser General Public License for more details.

You should have received a copy of the GNU Lesser General Public

License along with this library; if not, write to the Free Software

Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA

"

! !

!GDBTransientDataHolderTests methodsFor:'private'!

currentInferiorStateSequnceNumber

    ^ seqNo

    "Created: / 30-01-2018 / 08:13:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!GDBTransientDataHolderTests methodsFor:'running'!

setUp

    seqNo := 0

    "Created: / 30-01-2018 / 08:13:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!GDBTransientDataHolderTests methodsFor:'tests'!

test_01

    | holder value evaluated |

    value := 0.

    evaluated := false.

    holder := GDBTransientDataHolder debugger: self factory: [ evaluated := true. value ].

    self assert: holder value == 0.

    self assert: evaluated.

    "/ factory should not be evaluated and old value should

    "/ bre returned since sequence number has not changed.

    evaluated := false. value := 1.

    self assert: holder value == 0.

    self assert: evaluated not.

    self assert: holder value == 0.

    self assert: evaluated not.

    "/ change the sequence number a check the value has been

    "/ rreevaluated

    seqNo := seqNo + 1.

    self assert: holder value == 1.

    self assert: evaluated.

    "Created: / 30-01-2018 / 08:11:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

test_02

    | holder value token evaluated |

    value := 0.

    token := Object new.

    evaluated := false.

    holder := GDBTransientDataHolder debugger: self factory: [ evaluated := true. holder value: token. value ].

    self assert: holder value == token.

    self assert: evaluated.

    "/ factory should not be evaluated and old value should

    "/ bre returned since sequence number has not changed.

    evaluated := false. value := 1.

    self assert: holder value == token.

    self assert: evaluated not.

    self assert: holder value == token.

    self assert: evaluated not.

    "/ change the sequence number a check the value has been

    "/ rreevaluated

    seqNo := seqNo + 1.

    evaluated := false. value := 1. token := Object new.

    self assert: holder value == token.

    self assert: evaluated.

    "Created: / 30-01-2018 / 09:08:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

test_03

    | holder evaluated |

    evaluated := false.

    holder := GDBTransientDataHolder debugger: self factory: [ :old | evaluated := true. old notNil ifTrue:[ old + 1 ] ifFalse: [ 100 ] ].

    self assert: holder value == 100.

    self assert: evaluated.

    "/ factory should not be evaluated and old value should

    "/ bre returned since sequence number has not changed.

    evaluated := false. 

    self assert: holder value == 100.

    self assert: evaluated not.

    self assert: holder value == 100.

    self assert: evaluated not.

    "/ change the sequence number a check the value has been

    "/ rreevaluated

    seqNo := seqNo + 1.

    evaluated := false. 

    self assert: holder value == 101.

    self assert: evaluated.

    "/ factory should not be evaluated and old value should

    "/ bre returned since sequence number has not changed.

    evaluated := false. 

    self assert: holder value == 101.

    self assert: evaluated not.

    self assert: holder value == 101.

    self assert: evaluated not.

    "Created: / 31-01-2018 / 09:26:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!GDBTransientDataHolderTests class methodsFor:'documentation'!

version_HG

    ^ '$Changeset: <not expanded> $'

! !