"
 COPYRIGHT (c) 2006 by eXept Software AG
              All Rights Reserved

 This software is furnished under a license and may be used
 only in accordance with the terms of that license and with the
 inclusion of the above copyright notice.   This software may not
 be provided or otherwise made available to, or used by, any
 other person.  No title to or ownership of the software is
 hereby transferred.
"
"{ Package: 'stx:libtool' }"

"{ NameSpace: Tools }"

TestCase subclass:#NavigationHistoryTests
	instanceVariableNames:'history'
	classVariableNames:''
	poolDictionaries:''
	category:'Interface-Browsers-New-History'
!

!NavigationHistoryTests class methodsFor:'documentation'!

copyright
"
 COPYRIGHT (c) 2006 by eXept Software AG
              All Rights Reserved

 This software is furnished under a license and may be used
 only in accordance with the terms of that license and with the
 inclusion of the above copyright notice.   This software may not
 be provided or otherwise made available to, or used by, any
 other person.  No title to or ownership of the software is
 hereby transferred.
"
! !

!NavigationHistoryTests methodsFor:'initialization'!

setUp

    history := NavigationHistory new

    "Created: / 21-02-2008 / 16:52:19 / janfrog"
! !

!NavigationHistoryTests methodsFor:'tests'!

test_01

    self
        assert: history canGoBack not;
        assert: history canGoForward not

    "Created: / 21-02-2008 / 16:54:55 / janfrog"
!

test_02

    history goTo: 1.
        
    self
        assert: history canGoBack not;
        assert: history canGoForward not

    "Created: / 21-02-2008 / 16:55:34 / janfrog"
!

test_03
    history
        goTo:1;
        goTo:2;
        goTo:3;
        goBack.
    self
        assert:history currentItem = 2;
        assert:history canGoBack;
        assert:history goBackItems asArray = #( 1 );
        assert:history canGoForward;
        assert:history goForwardItems asArray = #( 3 ).

    "Created: / 21-02-2008 / 16:57:29 / janfrog"
    "Modified: / 27-02-2008 / 11:52:26 / janfrog"
    "Modified: / 06-06-2008 / 09:31:24 / Jan Vrany <vranyj1@fel.cvut.cz>"
!

test_04
    history
        goTo:1;
        goTo:2;
        goTo:3;
        goTo:2.
    self
        assert:history currentItem = 2;
        assert:history canGoBack;
        assert:history goBackItems asArray = #( 3 2 1);
        assert:history canGoForward not;
        assert:history goForwardItems asArray = #( ).

    "Created: / 21-02-2008 / 16:57:58 / janfrog"
    "Modified: / 27-02-2008 / 11:52:26 / janfrog"
    "Modified: / 06-06-2008 / 09:31:32 / Jan Vrany <vranyj1@fel.cvut.cz>"
    "Modified: / 04-09-2015 / 06:56:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!

test_05
    history
        goTo:1;
        goTo:2;
        goTo:3;
        goBack;
        goBack;
        goTo:5.
    self
        assert:history currentItem = 5;
        assert:history canGoBack;
        assert:history goBackItems asArray = #( 1 );
        assert:history canGoForward not.

    "Created: / 21-02-2008 / 16:59:11 / janfrog"
    "Modified: / 27-02-2008 / 11:52:12 / janfrog"
    "Modified: / 06-06-2008 / 09:31:40 / Jan Vrany <vranyj1@fel.cvut.cz>"
!

test_06
    history goTo:1.
    self assert: history currentItem = 1.
    self assert: history canGoBack not.
    self assert: history goBackItems asArray = #( ).
    self assert: history canGoForward not.
    self assert: history goForwardItems asArray = #( ).

    history goTo:2.
    self assert: history currentItem = 2.
    self assert: history canGoBack .
    self assert: history goBackItems asArray = #( 1 ).
    self assert: history canGoForward not.
    self assert: history goForwardItems asArray = #( ).

    history goTo:3.
    self assert: history currentItem = 3.
    self assert: history canGoBack .
    self assert: history goBackItems asArray = #( 2 1 ).
    self assert: history canGoForward not.
    self assert: history goForwardItems asArray = #( ).

    history goTo:2.
    self assert: history currentItem = 2.
    self assert: history canGoBack .
    self assert: history goBackItems asArray = #( 3 2 1 ).
    self assert: history canGoForward not.
    self assert: history goForwardItems asArray = #( ).

    history goBack.
    self assert: history currentItem = 3.
    self assert: history canGoBack .
    self assert: history goBackItems asArray = #( 2 1 ).
    self assert: history canGoForward.
    self assert: history goForwardItems asArray = #( 2 ).

    history goBack.
    self assert: history currentItem = 2.
    self assert: history canGoBack .
    self assert: history goBackItems asArray = #( 1 ).
    self assert: history canGoForward.
    self assert: history goForwardItems asArray = #( 3 2 ).   

    history goBack.
    self assert: history currentItem = 1.
    self assert: history canGoBack not.
    self assert: history goBackItems asArray = #( ).
    self assert: history canGoForward.
    self assert: history goForwardItems asArray = #( 2 3 2 ).   

    history goForward.
    self assert: history currentItem = 2.
    self assert: history canGoBack.
    self assert: history goBackItems asArray = #( 1 ).
    self assert: history canGoForward.
    self assert: history goForwardItems asArray = #( 3 2 ).   

    history goForward.
    self assert: history currentItem = 3.
    self assert: history canGoBack.
    self assert: history goBackItems asArray = #( 2 1 ).
    self assert: history canGoForward.
    self assert: history goForwardItems asArray = #( 2 ).

    "Created: / 04-09-2015 / 06:59:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !

!NavigationHistoryTests class methodsFor:'documentation'!

version_CVS
    ^ '$Header: /cvs/stx/stx/libtool/Tools__NavigationHistoryTests.st,v 1.2 2012-09-02 11:21:14 cg Exp $'
!

version_HG

    ^ '$Changeset: <not expanded> $'
!

version_SVN
    ^ '§Id: Tools__NavigationHistoryTests.st 7486 2009-10-26 22:06:24Z vranyj1 §'
! !