OpenEuphoria

Pastey Why Does This Fail?

• Posted by euphoric (admin) Sep 01, 2011

-- testing print/get
 
include std/get.e 
include std/console.e 
 
atom fn 
object o 
 
sequence 
	test_vars = { "Testing", {"This one",{1,2}} }, 
	fname = "testing.txt" 
 
fn = open(fname,"w") 
 
for t=1 to length( test_vars ) do 
	puts(1,"\n") 
	print(1,test_vars[t]) 
	print(fn,test_vars[t]) 
end for 
 
close(fn) 
 
puts(1,"\n\nOutput below should exactly match input above\n\n") 
 
fn = open(fname,"r") 
o = get(fn) 
puts(1,"\n") 
print(1,o[2]) 
o = get(fn) 
puts(1,"\n") 
print(1,o[2]) 
 
close(fn) 
 
puts(1,"\n\n") 
maybe_any_key()