Mercurial Mercurial > hg > stx-libtool / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
FileBrowserV2Tests.st
changeset 3964 8697bad1c903
parent 3953 4fd0ed70cf36
child 4025 f2f8fca68876 
--- a/FileBrowserV2Tests.st	Tue Oct 08 21:29:16 2002 +0200
+++ b/FileBrowserV2Tests.st	Wed Oct 09 14:20:58 2002 +0200
@@ -53,18 +53,18 @@
     |history|
 
     history := AbstractFileBrowser directoryHistoryClass new.
-    self shouldnt: (history canBack).
+    self shouldnt: (history canBackFrom:'1').
     history addToHistory:'1'.
-    self should:(history canBack).
+    self should:(history canBackFrom:'2').
     self shouldnt:(history canForward).
     history addToHistory:'2'.
     history addToHistory:'3'.
-    self should:(history canBack).
+    self should:(history canBackFrom:'4').
     self shouldnt: (history canForward).
-    self should: (history goBack = '3').
-    self should: (history goBack = '2').
+    self should: ((history goBackFrom:'4') = '3').
+    self should: ((history goBackFrom:'3') = '2').
     self should: (history canForward).
-    self should: (history goForward = '3').
+    self should: ((history goForward) = '3').
     self shouldnt: (history canForward).
 
     
@@ -114,5 +114,5 @@
 !FileBrowserV2Tests class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2Tests.st,v 1.2 2002-10-08 08:20:17 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2Tests.st,v 1.3 2002-10-09 12:20:58 penk Exp $'
 ! !
hg/stx-libtool