def test_dos_interleave_prodos_disks
dskname=File.dirname(__FILE__)+"//ADTPRO-1.0.1.DSK"
dsk=DSK.read(dskname)
assert_equal(:prodos,dsk.file_system,"#{dskname} should have ProDOS file system")
assert_equal(:prodos_from_dos,dsk.sector_order,"#{dskname} should have DOS sector order")
assert_equal("ADTPRO.1.0.1",dsk.volume_name)
assert(dsk.files.length>0,"#{dskname} should have at least one file")
bas_file=dsk.files["STARTUP"]
assert(bas_file!=nil,"#{dskname} should have a file called STARTUP")
assert_equal("10 TEXT : NORMAL : HOME",bas_file.to_s[0..22],"STARTUP should detokenise")
dskname=File.dirname(__FILE__)+"//Apple Works V5.0 (1993)(Beagle Bros)(Disks 5 of 6).dsk.gz"
dsk=DSK.read(dskname)
assert_equal(:prodos,dsk.file_system,"#{dskname} should have ProDOS file system")
assert_equal(:prodos_from_dos,dsk.sector_order,"#{dskname} should have DOS sector order")
assert_equal("MOVE13",dsk.volume_name)
assert(dsk.files.length>0,"#{dskname} should have at least one file")
awp_file=dsk.files["AW.INITS/NARNIA.KNAVES"]
assert(bas_file!=nil,"#{dskname} should have a file called AW.INITS/NARNIA.KNAVES")
assert_equal("This bonus screen blanker",awp_file.to_s[0..24])
end