test[jl8] 90

.
self running: 'file read/write/append tests'
#hello outputToFile: 's8-test-sample.txt'. ^true
's8-test-sample.txt' fileContents = #hello
#world appendToFile: 's8-test-sample.txt'. ^true
's8-test-sample.txt' fileContents = #helloworld

self running: 'http read tests'
'http://u8.smalltalking.net' fileContents includes: 'powered by S8'

self running: 'image & snapshot tests'
^Smalltalk current imageContents includes: 'smalltalk.Object'
"| fname | fname := 'test.snapshot.',String nativeFileExtension. Snapshot outputToFile: fname. ^fname fileContents includes: #s8smalltalk