Issue GsDevKit#58: add a test

glassdb · Oct 7, 2015 · 19fba3c · 19fba3c
1 parent 8fcada4
commit 19fba3c
Show file tree

Hide file tree

Showing 5 changed files with 25 additions and 4 deletions.
diff --git a/...tstrap.v3.package/FileDirectoryTests.class/instance/testDirectoryNamedWithAbsolutePath.st b/...tstrap.v3.package/FileDirectoryTests.class/instance/testDirectoryNamedWithAbsolutePath.st
@@ -1,4 +1,4 @@
-as yet unclassified
+tests
 testDirectoryNamedWithAbsolutePath
 	self assert: (FileDirectory root directoryNamed: 'tmp') pathName = '/tmp'.
 	self assert: (FileDirectory default directoryNamed: '/tmp') pathName = '/tmp'
diff --git a/repository/Bootstrap.v3.package/FileDirectoryTests.class/instance/testIssue293.st b/repository/Bootstrap.v3.package/FileDirectoryTests.class/instance/testIssue293.st
@@ -1,4 +1,4 @@
-as yet unclassified
+tests
 testIssue293
 	"http://code.google.com/p/glassdb/issues/detail?id=293"
 

diff --git a/repository/Bootstrap.v3.package/FileDirectoryTests.class/instance/testIssue58.st b/repository/Bootstrap.v3.package/FileDirectoryTests.class/instance/testIssue58.st
@@ -0,0 +1,20 @@
+tests
+testIssue58
+  "https://github.com/GsDevKit/GsDevKit/issues/58"
+
+  | main |
+  (main := ServerFileDirectory default directoryNamed: self mainSubdirectoryName)
+    exists
+    ifTrue: [ main recursiveDelete ].
+  ServerFileDirectory default createDirectory: self mainSubdirectoryName.
+  main := ServerFileDirectory default directoryNamed: self mainSubdirectoryName.
+  main newFileNamed: 'newFile' do: [ :file | file nextPutAll: 'Hello World' ].
+  main
+    readOnlyFileNamed: 'newFile'
+    do: [ :file | self assert: file contents = 'Hello World' ].
+  main
+    readOnlyFileNamed: 'newFile'
+    do: [ :file | 
+      self deny: file atEnd.
+      file next: 11.
+      self assert: file atEnd ]
diff --git a/repository/Bootstrap.v3.package/FileDirectoryTests.class/methodProperties.json b/repository/Bootstrap.v3.package/FileDirectoryTests.class/methodProperties.json
@@ -8,4 +8,5 @@
 		"testBug39468" : "dkh 05/28/2012 13:16",
 		"testBug39767" : "dkh 05/28/2012 13:04",
 		"testDirectoryNamedWithAbsolutePath" : "NorbertHartl 11/30/2010 14:18",
-		"testIssue293" : "dkh 09/14/2011 14:37" } }
+		"testIssue293" : "dkh 09/14/2011 14:37",
+		"testIssue58" : "dkh 10/06/2015 19:24" } }
diff --git a/repository/Bootstrap.v3.package/monticello.meta/version b/repository/Bootstrap.v3.package/monticello.meta/version