--- a/FileBrowserV2Tests.st	Tue Oct 22 16:07:35 2002 +0200
+++ b/FileBrowserV2Tests.st	Tue Oct 22 16:12:45 2002 +0200
@@ -53,19 +53,21 @@
     |history|
 
     history := AbstractFileBrowser directoryHistoryClass new.
-    self shouldnt: (history canBackFrom:'1').
+    history resetForwardBackward.
+    self shouldnt: (history canBack).
     history addToHistory:'1'.
-    self should:(history canBackFrom:'2').
+    self shouldnt:(history canBack).
     self shouldnt:(history canForward).
     history addToHistory:'2'.
+    self should:(history canBack).
     history addToHistory:'3'.
-    self should:(history canBackFrom:'4').
+    self should:(history canBack).
     self shouldnt: (history canForward).
-    self should: ((history goBackFrom:'4') = '3').
-    self should: ((history goBackFrom:'3') = '2').
+    self should: ((history goBack) = '2').
+    self should: ((history goBack) = '1').
     self should: (history canForward).
     self should: ((history goForward) = '3').
-    self shouldnt: (history canForward).
+    self should: (history canForward).
 
     
 
@@ -83,7 +85,7 @@
 
     file := Filename homeDirectory construct:'work/stx/doc/online/english/index.html'.
     file exists ifTrue:[
-        item := DirectoryContentsBrowser itemClass with:file.
+        item := DirectoryContentsBrowser itemClass fileName:file.
         self should:(item mimeType = 'text/html').
     ].
 
@@ -114,5 +116,5 @@
 !FileBrowserV2Tests class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2Tests.st,v 1.3 2002-10-09 12:20:58 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2Tests.st,v 1.4 2002-10-22 14:12:45 penk Exp $'
 ! !