mirror of
https://github.com/polserver/polserver
synced 2026-08-13 08:23:08 -04:00
50130a3d6b
* xml and binaryfile tests fixed small bugs * fixed platform specifics * fixed use-after-free when the document went out of scope.The document is now shared accross all objects
48 lines
1.9 KiB
Text
48 lines
1.9 KiB
Text
use file;
|
|
|
|
// FileExists and ReadFile. Fixtures which must contain exact bytes (CRLF, missing final
|
|
// newline) are generated into filemod/scratch/ at runtime instead of being committed,
|
|
// because .gitattributes normalizes line endings of checked in text files.
|
|
|
|
program FileReadTest()
|
|
makefixtures();
|
|
|
|
print( "--- FileExists" );
|
|
print( "existing: " + FileExists( ":filetest:normal.file" ) );
|
|
print( "missing: " + FileExists( ":filetest:nosuchfile" ) );
|
|
print( "no package: " + FileExists( "filemod/normal.file" ) );
|
|
print( "traversal: " + FileExists( ":filetest:../ecompile.cfg" ) );
|
|
print( "unknown pkg: " + FileExists( ":nosuchpkg:normal.file" ) );
|
|
print( "bad param: " + FileExists( 5 ) );
|
|
|
|
print( "--- ReadFile" );
|
|
var crlf := ReadFile( ":filetest:scratch/crlf.txt" );
|
|
print( "crlf lines: " + Len( crlf ) );
|
|
// ReadFile opens in text mode, so windows translates CRLF and keeps only "a" while posix
|
|
// returns "a\r". Only the payload in front of the line break can be compared portably.
|
|
var crlfline := crlf[1];
|
|
print( "crlf line 1: " + crlfline[1, 1] );
|
|
print( "empty file: " + Len( ReadFile( ":filetest:scratch/empty.txt" ) ) );
|
|
print( "no final newline: " + ReadFile( ":filetest:scratch/noeol.txt" ) );
|
|
print( "missing: " + ReadFile( ":filetest:nosuchfile" ) );
|
|
print( "unknown pkg: " + ReadFile( ":nosuchpkg:normal.file" ) );
|
|
print( "traversal: " + ReadFile( ":filetest:../ecompile.cfg" ) );
|
|
print( "bad param: " + ReadFile( 5 ) );
|
|
endprogram
|
|
|
|
function makefixtures()
|
|
var f := OpenBinaryFile( ":filetest:scratch/crlf.txt", OPENMODE_OUT + OPENMODE_TRUNC );
|
|
f.setstring( "a", 0 );
|
|
f.setint8( 13 );
|
|
f.setint8( 10 );
|
|
f.setstring( "b", 0 );
|
|
f.setint8( 13 );
|
|
f.setint8( 10 );
|
|
f.close();
|
|
|
|
f := OpenBinaryFile( ":filetest:scratch/noeol.txt", OPENMODE_OUT + OPENMODE_TRUNC );
|
|
f.setstring( "no newline at end", 0 );
|
|
f.close();
|
|
|
|
WriteFile( ":filetest:scratch/empty.txt", array{} );
|
|
endfunction
|