Add a test for StringFile and FileString

gap-system · Aug 19, 2016 · fa6a96c · fa6a96c
1 parent 01271c2
commit fa6a96c
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/tst/testinstall/read.tst b/tst/testinstall/read.tst
@@ -71,4 +71,13 @@ gap> SeekPositionStream(x, 3);
 true
 gap> ReadAll(x);
 "lo\ngoodbye\ni like pies\n"
+gap> StringFile(Filename( DirectoriesLibrary("tst"), "example.txt" ));
+"hello\ngoodbye\ni like pies\n"
+gap> dir := DirectoryTemporary();;
+gap> FileString( Filename(dir, "tmp1"), "Hello, world!");
+13
+gap> StringFile( Filename(dir, "tmp2"));
+fail
+gap> StringFile( Filename(dir, "tmp1"));
+"Hello, world!"
 gap> STOP_TEST( "read.tst", 220000);