ripxplore 0.0.1 → 0.0.2

data/lib/native_file_types/trs80/Trs80Text.rb

@@ -0,0 +1,49 @@
+require 'NativeFileType'
+
+
+class Trs80Text<NativeFileType
+
+def self.file_system_file_types
+  {
+    TrsDos=>["DOC","TXT","DAT"]
+  }
+end
+
+#make sure if we match, we override CMD
+def matching_score
+  Trs80Cmd.matching_score+1
+end
+
+def to_text
+  contents
+end
+
+include ScreenDump
+
+end
+
+  
+# == Author
+# Jonno Downes (jonno@jamtronix.com)
+#
+# == Copyright
+# Copyright (c) 2008 Jonno Downes (jonno@jamtronix.com)
+#
+#Permission is hereby granted, free of charge, to any person obtaining
+#a copy of this software and associated documentation files (the
+#"Software"), to deal in the Software without restriction, including
+#without limitation the rights to use, copy, modify, merge, publish,
+#distribute, sublicense, and/or sell copies of the Software, and to
+#permit persons to whom the Software is furnished to do so, subject to
+#the following conditions:
+
+# The above copyright notice and this permission notice shall be
+# included in all copies or substantial portions of the Software.
+
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+# NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+# LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+# OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+# WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

data/test/tc_apple_2.rb

@@ -0,0 +1,94 @@
+require 'testhelper'
+
+class ImageSniffing < Test::Unit::TestCase
+
+  
+  def test_apple_2_images
+
+    sniff_url("http://mirrors.apple2.org.za/ftp.apple.asimov.net/images/productivity/word_processing/graph2.dsk.gz",A2Dsk,ProDos,
+        [
+        {:filename=>"PICS/PIC.GEORGE",:can_execute=>:to_picture},
+        {:filename=>"PICS/PIC.BBROS",:can_execute=>:to_picture},
+        ])
+      
+    sniff_url("http://mirrors.apple2.org.za/ftp.apple.asimov.net/images/graphics/view_gif.dsk.gz",A2Dsk,ProDos,
+        [{:filename=>"DRAGON.GIF",:can_execute=>:to_picture},
+        ])
+      
+    sniff_url("http://www.jamtronix.com/dsks/EARTHDEF.DSK",A2DskPhysicalOrder,AppleDos,[
+        {:filename=>"HELLO",:expected_native_file_type=>Applesoft,:listing_starts_with=>"10 REM"}])
+    
+    sniff_url("http://mirrors.apple2.org.za/ftp.apple.asimov.net/images/disk_utils/cracking_techniques_1982.dsk.gz",A2DskPhysicalOrder,AppleDos,[
+        {:filename=>"HELLO",:expected_native_file_type=>Applesoft,:listing_starts_with=>'10 PRINT "** DOCTOR DOS **'}])
+            
+    sniff_url("http://mirrors.apple2.org.za/ftp.apple.asimov.net/images/masters/dos33_with_adt.dsk",A2DskPhysicalOrder,AppleDos,[
+        {:filename=>"APPLESOFT",:expected_native_file_type=>IntegerBASIC,:listing_starts_with=>"10 REM"},
+        {:filename=>"CHAIN",:expected_native_file_type=>AppleBinary,:load_address=>0x0808,:can_execute=>:to_disassembly},
+        {:filename=>"APPLE PROMS",:expected_native_file_type=>AppleText,:text_starts_with=>"75\nDEL 1000,1250"} 
+        ])
+    sniff_url("http://www.jamtronix.com/dsks/AAL_1.DSK",A2DskPhysicalOrder,AppleDos,[
+        {:filename=>"DIVIDE BY TEN",:expected_native_file_type=>ScAsm,:listing_starts_with=>"930        .LIST OFF"}])
+        
+    sniff_url("http://mirrors.apple2.org.za/ftp.apple.asimov.net/images/disk_utils/APTEST.DSK",A2DskPhysicalOrder,AppleDos)
+    sniff_url("http://www.jamtronix.com/dsks/dosmaster.po",A2DskPhysicalOrder,ProDos)
+    sniff_url("http://mirrors.apple2.org.za/ftp.apple.asimov.net/images/disk_utils/copy_ii+_v7.1.do.gz",A2DskDosOrder,ProDos)
+    
+    sniff_url("http://mirrors.apple2.org.za/ftp.apple.asimov.net/images/disk_utils/prosel_utilities.dsk.gz",A2DskDosOrder,ProDos,[
+        {:filename=>"UTIL/CONFIG.RAMDRV",:expected_native_file_type=>Applesoft,:listing_starts_with=>"10 REM ProSel Ram.Drive editor"}])
+    
+    sniff_url("http://mirrors.apple2.org.za/ftp.apple.asimov.net/images/disk_utils/problock3.DSK",A2DskDosOrder,ProDos,[
+        {:filename=>"READ.ME",:expected_native_file_type=>AppleText,:text_starts_with=>"This disk contains all the files required"}])
+    
+    sniff_url("http://mirrors.apple2.org.za/landover.no-ip.com/Applications/Apple%20Works%20V5.0%20(1993)(Beagle%20Bros)(Disks%205%20of%206).dsk",A2DskDosOrder,ProDos,[
+        {:filename=>"AW.INITS/NARNIA.KNAVES",:expected_native_file_type=>AppleWorksWP,:text_starts_with=>"This bonus screen blanker for AfterWork"}])
+
+
+    sniff_url("http://www.jamtronix.com/dsks/NADOL.DSK",A2DskPhysicalOrder,NADOLDos,[
+        {:filename=>"NADOL",:expected_native_file_type=>NADOLFile},
+        {:filename=>"LOGO",:expected_native_file_type=>AppleHiResPic},
+        {:filename=>"BRICKOUT",:expected_native_file_type=>NADOLTokens,:listing_starts_with=>"; LORES BRICK-OUT GAME"}])
+
+    sniff_url("http://mirrors.apple2.org.za/ftp.apple.asimov.net/images/graphics/printshop/PrintShopGraphics_Cartoons.dsk",A2Dsk,AppleDos,
+            [{:filename=>"BATMAN",:expected_native_file_type=>AppleDosPrintShopMiniPix}
+      ])
+
+
+    sniff_url("http://mirrors.apple2.org.za/ftp.apple.asimov.net/images/graphics/printshop/Print%20Shop%20Graphics%20Library%20-%20Volume%201%20-%20Back.dsk",A2Dsk,AppleDos,
+            [{:filename=>"RAINBOW",:expected_native_file_type=>AppleDosPrintShopMiniPix,:can_execute=>:to_picture}
+      ])
+
+
+    sniff_url("http://mirrors.apple2.org.za/ftp.apple.asimov.net/images/graphics/Beagle%20Bros%20-%20Minipix%20Disk%20%231,%20Side%20A.dsk",A2Dsk,ProDos,
+            [{:filename=>"SET.A",:expected_native_file_type=>AppleHiResPic,:can_execute=>:to_picture}])
+
+
+    sniff_url("http://www.apple2.org.za/mirrors/ftp.apple.asimov.net/images/educational/camps.dsk.gz",A2DskDosOrder,PascalDos,
+            [{:filename=>"CAMPS.FOTO",:expected_native_file_type=>AppleHiResPic,:can_execute=>:to_picture}])
+
+    
+    sniff_url("http://mirrors.apple2.org.za/landover.no-ip.com/Applications/Flying%20Colors%20(1983)(Jandel%20Corporation).dsk",A2Dsk,AppleDos,
+        [{:filename=>"LOGO4",:can_execute=>:to_picture},
+        ])
+
+    sniff_url("http://mirrors.apple2.org.za/landover.no-ip.com/Applications/Pic%20Pac%20I%20(19xx)(Copycatter).dsk",A2Dsk,AppleDos,
+        [{:filename=>"ZZ TOP",:can_execute=>:to_picture},
+        ])
+
+    sniff_url("http://mirrors.apple2.org.za/landover.no-ip.com/Applications/Algebra%20Mentor%20(19xx)(John%20C.%20Miller)(Disk%206%20of%207%20Side%20A)(Student%20Disk%206).dsk",A2DskDosOrder,PascalDos,
+    [{:filename=>"SYSTEM.MISCINFO",:expected_native_file_type=>PascalFile},
+    ])
+
+    sniff_url("http://mirrors.apple2.org.za/apple.cabi.net/Z80.CPM/STARCPM.DSK",A2DskPhysicalOrder,AppleCPM,[
+    {:filename=>"STAR.DOC",:expected_native_file_type=>CPMFile},
+    ])
+
+    sniff_url("http://mirrors.apple2.org.za/ftp.apple.asimov.net/images/cpm/CPM1.PO",A2DskDosOrder,AppleCPM,[
+    {:filename=>"CONFIGIO.BAS",:expected_native_file_type=>MBasic,:listing_starts_with=>"1 '\n2 '  I/O CONFIGURATION UTILITY"},
+    ])
+
+
+    sniff_url("http://mirrors.apple2.org.za/ftp.apple.asimov.net/images/games/file_based/White_Disks/white_03b.dsk.gz",A2DskPhysicalOrder,AppleDos,[
+        {:filename=>"RIP.PIC",:expected_native_file_type=>AppleHiResPic,:can_execute=>:to_picture}])
+end
+end
+

data/test/tc_atari_800.rb

@@ -0,0 +1,28 @@
+require 'testhelper'
+
+class ImageSniffing < Test::Unit::TestCase
+
+  
+  def test_atari_800_images
+
+  
+    sniff_url("http://www.atariarchives.org/oldhackers/OHJFM00A.ATR",Atr,AtariDos,[
+      {:filename=>"HELP.DOC",:expected_native_file_type=>AtariText,:text_starts_with=>" The OL' HACKERS Disk  Newsletter Help\n"},
+      {:filename=>"GDRIVES.TXT",:expected_native_file_type=>AtariText,:text_starts_with=>"  Life Insurance For Your Disk Drives\n             by Ron Fetzer\n\n      Are you"},
+      {:filename=>'DUP.SYS',:expected_native_file_type=>AtariBinary,:load_address=>0x1F0C,:can_execute=>:to_disassembly},
+      {:filename=>"WELCOME.BAS",:expected_native_file_type=>AtariBasic,:listing_starts_with=>"10 DIM CIO$(20),SCR$(958):POKE 82,0:POKE 752,1:PRINT \"}\":POKE 559,0:POKE 709,12:POKE 710,20:POKE 712,24\n20 CIO$="},
+    ])
+
+    sniff_url("http://www.atariarchives.org/oldhackers/OHJFM00B.ATR",Atr,AtariDos,[
+      {:filename=>"LABEL.TUR",:expected_native_file_type=>AtariBasic,:can_execute=>:to_listing},
+      {:filename=>"SUBATACK.TUR",:expected_native_file_type=>AtariBasic,:can_execute=>:to_listing},
+    ])
+    sniff_url("http://ape.dyndns.org:8085/A-J/Bank_Street_Writer.atr",Atr,AtariDos,
+    [
+      {:filename=>'UTILA.SYS',:expected_native_file_type=>AtariBasic,:can_execute=>:to_listing},
+    ])
+    
+    
+end
+end
+

data/test/tc_c64.rb

@@ -0,0 +1,35 @@
+require 'testhelper'
+
+class ImageSniffing < Test::Unit::TestCase
+
+  
+  def test_c64_images
+  
+
+  sniff_url("http://www.zimmers.net/anonftp/pub/cbm/c64/programming/BASIC-Programming-Tools.DaveJB.d64.gz",D64,CbmDos,
+      [{:filename=>"p&p.asm",:text_starts_with=>"; *** peek&poke *\n; (c) dave - 9"}]
+    )
+    sniff_url("http://www.zimmers.net/anonftp/pub/cbm/c64/programming/Logo-utilities.d64.gz",D64,CbmDos,
+      [{:filename=>"while.logo",:text_starts_with=>"to help\n nd"}]
+      )
+  
+    sniff_url("http://www.zimmers.net/anonftp/pub/cbm/c64/magazines/Ahoy/1986-01.d64.gz",D64,CbmDos,[
+      {:filename=>"sketcher.s",:expected_native_file_type=>C64PrgText,:text_starts_with=>"*\n* SKETCHER"}
+    ])
+    sniff_url("http://www.zimmers.net/anonftp/pub/cbm/demodisks/c128/cpm.system.622-3282252.d64.gz",D64,CbmDos)
+    
+    sniff_url("http://www.zimmers.net/anonftp/pub/cbm/c128/programming/d-ass.d64.gz",D64,CbmDos,
+      [{:filename=>"DOUBLE-ASS",:expected_native_file_type=>C64Prg,:can_execute=>:to_disassembly}]
+    )
+
+    sniff_url("http://www.zimmers.net/anonftp/pub/cbm/c64/magazines/Ahoy/best-1985.d64.gz",D64,CbmDos,[
+      {:filename=>"gameloader  d'85",:expected_native_file_type=>C64BasicPrg,:load_address=>0x0801,:listing_starts_with=>"1 REM ********"}
+    ])
+      
+    sniff_url("http://ftp.strassenbahn.tk:81/inntram-public/off-topic/c64/www.c64.ch/samar_digital_s1.g64",G64,CbmDos,[
+    {:filename=>'skip intro-part1'}
+    ]) 
+
+end
+end
+

data/test/tc_cache_and_collections.rb

@@ -0,0 +1,33 @@
+require 'testhelper'
+
+class CacheAndCollections < Test::Unit::TestCase
+
+  def test_filetype_collections
+    image_has_collection_of("http://mirrors.apple2.org.za/ftp.apple.asimov.net/images/graphics/printshop/Print%20Shop%20Graphics%20Library%20-%20Volume%201%20-%20Back.dsk",:pictures)  
+    image_has_collection_of("http://www.atariarchives.org/oldhackers/OHJF95A.ATR",:texts)
+    image_has_collection_of("http://mirrors.apple2.org.za/landover.no-ip.com/Applications/Agriculture%20(19xx)(-).dsk",:listings)    
+    
+  end
+
+  def test_native_image_cache
+    url="http://mirrors.apple2.org.za/ftp.apple.asimov.net/images/graphics/printshop/Print%20Shop%20Graphics%20Library%20-%20Volume%201%20-%20Back.dsk"    
+    image_file=file_cache.get_file_system_image(url)
+    native_file=image_file.pictures[0]
+    file_cache.purge_native_file_from_cache(native_file)
+    cached_native_file_filename=file_cache.cache_name_for_native_file(native_file,'png')
+    assert(!File.exists?( cached_native_file_filename),"purging native file from cache should remove file from disk")
+    assert_equal(cached_native_file_filename,file_cache.force_native_file_to_cache(native_file,:to_picture,'png'),"force_native_file_to_cache should return path of cached file when it DOES write to disk")
+    assert_equal(cached_native_file_filename,file_cache.force_native_file_to_cache(native_file,:to_picture,'png'),"force_native_file_to_cache should return path of cached file when it DOES NOT write to disk")
+    assert(File.exists?(cached_native_file_filename),"forcing native file to native file cache should result in #{cached_native_file_filename} existing on disk")
+  end
+
+  def test_random_filecache
+    file_cache.make_file_system_image_list
+    assert_not_nil(file_cache.file_system_image_urls_in_cache)
+    assert_not_nil(file_cache.random_file_system_image)
+    assert_not_equal(0,file_cache.random_file_system_image(:pictures).pictures)
+    assert_not_equal(0,file_cache.random_file_system_image(:texts).texts)    
+  end
+  
+end
+

data/test/tc_coco.rb

@@ -0,0 +1,38 @@
+require 'testhelper'
+
+class ImageSniffing < Test::Unit::TestCase
+
+  
+  def test_coco_images
+  
+
+
+  
+    sniff_url("http://cocomag.dyndns.org/swarc/RainbowOnDisk/1987_07a.dsk",JvcDsk,RsDos,
+    [    
+    {:filename=>"DATAWRIT/SRC",:can_execute=>:to_text},
+    {:filename=>"TRIVIA/BAS",:can_execute=>:to_listing},
+    ])
+
+   sniff_url("http://cocomag.dyndns.org/swarc/T_D_Archive/T_and_D_Software/TND001.DSK",JvcDsk,RsDos,
+      [{:filename=>"BARTEND/BAS",:listing_starts_with=>"5 ' COPYRIGHT (C) T&D SOFTWARE 1982\n10 REM BARTENDER"}]
+    )
+
+    sniff_url("http://cocomag.dyndns.org/swarc/RainbowOnDisk/1990_08a.dsk",JvcDsk,RsDos,
+    [    
+    {:filename=>"LISTER/ASM",:can_execute=>:to_text},
+    ])
+
+    
+    sniff_url("http://cocomag.dyndns.org/swarc/RainbowOnDisk/1986_10a.dsk",JvcDsk,RsDos,
+    [    
+    {:filename=>"   ON/\x8f\x8f\x8f",:expected_native_file_type=>CocoMachineLanguage,:load_address=>0x0E00},
+    {:filename=>" RAINBOW/\x8f\x8f\x8f",:expected_native_file_type=>CocoScreen,:load_address=>0x0400,:save_output=>[:to_picture,'png']},
+    {:filename=>"ZOOM2/BAS",:can_execute=>:to_listing},    
+    ])
+
+    #sniff_url("http://cocomag.dyndns.org/swarc/RainbowOnDisk/1986_10b.dsk",JvcDsk,RsDos)   # FIXME! the B side is actually OS-9
+    
+end
+end
+

data/test/tc_screen_dumps.rb

@@ -0,0 +1,42 @@
+require 'testhelper'
+
+class ScreenDumps < Test::Unit::TestCase
+
+  
+  IMAGE_TEST_DIR=File.dirname(__FILE__)+"//screendumps"
+  @@counter=0
+  def save_screendump(bytes)
+    filename="#{IMAGE_TEST_DIR}//#{@@counter}.png"
+    file=File.new(filename,"wb")
+    file<<bytes
+    file.close
+    @@counter+=1
+  end
+  
+  def save_screendump_for_file(url,filename)
+    test_image=@@filecache.get_file_system_image(url)
+    test_file=test_image.files[filename]
+    assert_not_nil(test_file,"#{filename} should exist in #{url}")
+    assert(test_file.respond_to?(:to_screendump),"#{filename} [class #{test_file.class}] does not implement to_screendump")
+#    assert_not_equal(0,test_file.screendump_width)
+#    assert_not_equal(0,test_file.screendump_height)
+    save_screendump(test_file.to_screendump)
+  end
+
+  def test_screen_dumps
+    Dir.mkdir(IMAGE_TEST_DIR) unless File.exists?(IMAGE_TEST_DIR)    
+    #~ save_screendump(Apple2.to_screendump("test"))
+    #~ save_screendump(Apple2.to_screendump("test2 "*1024))
+    #~ save_screendump(Trs80.to_screendump("TRS 80"))
+    #~ save_screendump(Trs80.to_screendump("test2 "*1024))
+    save_screendump_for_file("http://mirrors.apple2.org.za/Apple%20II%20Documentation%20Project/Interface%20Cards/Accelerators/Zip%20GSX/Disk%20Images/Zip%20GSX%20Utility%20and%20Install%20Disk.po","ZIPGS.SDK.TXT")
+    save_screendump_for_file("http://www.atariarchives.org/oldhackers/OHAMJ00A.ATR","JOYSTCK.TXT")
+    save_screendump_for_file("http://mirrors.apple2.org.za/landover.no-ip.com/Applications/Amdos%20V3.5%20(1986)(Gary%20B.%20Little).dsk","AMDOS.DOC")
+    save_screendump_for_file("http://mirrors.apple2.org.za/landover.no-ip.com/Applications/Cat-Fur%202.0%20(19xx)(-).dsk","DOCS.FUR")
+    save_screendump_for_file("http://disk-images.jamtronix.com/trs80/D411.DSK.gz",'MD3GAM01/TXT')
+    save_screendump_for_file("http://disk-images.jamtronix.com/trs80/D420.DSK.gz",'JCL/DOC')
+#    save_screendump_for_file("http://www.zimmers.net/anonftp/pub/cbm/c64/magazines/Ahoy/1986-01.d64.gz","sketcher.s")
+#    save_screendump_for_file("ftp://ftp.whtech.com/emulators/pc99/games/games23.dsk","4AFLYERDOC")
+  end
+end
+

data/test/tc_ti99.rb

@@ -0,0 +1,51 @@
+require 'testhelper'
+
+class ImageSniffing < Test::Unit::TestCase
+
+  
+  def test_ti99_images
+
+
+  sniff_url("ftp://ftp.whtech.com/emulators/pc99/games/virus.dsk",Pc99SD,Ti99Fms,[    
+   {:filename=>"LOAD",:listing_starts_with=>"100 CALL CLEAR :: DISPLAY AT(1,3):\"V I R U S   A T T A C K !\"\n110 DISPLAY AT(10,1):\"1 - PLAY THE GAME\" :: DISPLAY AT(13,1):\"2 - INSTRUCTIONS\"\n"}
+    ])
+
+
+  sniff_url("http://disk-images.jamtronix.com/ti99/tigercub/Tigercub%201207%20-%20Rle%20Pictures%20(19xx)(Tigercub%20Software)(PD).dsk.gz",V9T9Dsk,Ti99Fms,[
+  {:filename=>"ALIEN",:can_execute=>:to_picture},
+])
+
+  sniff_url("ftp://ftp.whtech.com/emulators/pc99/Gif%20images%20and%20G99/G99PICS1.DSK",Pc99SD,Ti99Fms,[
+  {:filename=>"55CHEVY",:can_execute=>:to_picture},
+])
+
+
+  sniff_url("ftp://ftp.whtech.com/sprites/SPRDEF2.TIDisk",V9T9Dsk,Ti99Fms)
+  sniff_url("ftp://ftp.whtech.com/emulators/v9t9/Funnelweb/FW80-1.dsk",V9T9Dsk,Ti99Fms)
+#  sniff_url('http://disk-images.jamtronix.com/ti99/tigercub/Tigercub%201201%20-%20TI-Artist%20Pictures%20(19xx)(Tigercub%20Software )(PD).dsk.gz',V9T9Dsk,Ti99Fms)
+
+  sniff_url("ftp://ftp.whtech.com/emulators/pc99/tiartist/solar_p.dsk",Pc99DD,Ti99Fms,[
+  {:filename=>"CHART/F_P",:expected_native_file_type=>TiArtistPattern,:can_execute=>:to_picture},
+#  {:filename=>"TOUR",:expected_native_file_type=>Ti99BasicFile,:can_execute=>:to_picture},
+  #{:filename=>"TOURR",:expected_native_file_type=>Ti99BasicFile}
+  ])
+  
+  
+  sniff_url("ftp://ftp.whtech.com/emulators/pc99/tiartist/tia%232.dsk",Pc99DD,Ti99Fms,[
+  {:filename=>"TETRIS_P"},  #tests a bug that was resulting in files not appearing in catalog
+    {:filename=>"PICTURE_C",:expected_native_file_type=>TiArtistColours}, 
+  {:filename=>"PICTURE_P",:expected_native_file_type=>TiArtistPattern,:can_execute=>:to_picture}, #we can't directly test this in a script, but this picture has a corresponding _C file, from which the colour info should be extracted
+  {:filename=>"CAR1_P",:expected_native_file_type=>TiArtistPattern,:can_execute=>:to_picture},  #also tests a bug that was resulting in short files
+  {:filename=>"TETIT_P",:expected_native_file_type=>TiArtistPattern,:can_execute=>:to_picture},  #also tests a bug that was resulting in short files
+  ])
+  
+  
+  
+  sniff_url("ftp://ftp.whtech.com/emulators/pc99/games/games23.dsk",Pc99SD,Ti99Fms,
+  [{:filename=>"4AFLYERDOC",:text_starts_with=>"4A Flyer by John M. Phillips            or...DA PLANE, DA PLANE!\n________\nFasten your seat belt and prepare for takeoff with 4A Flyer! You are the pilot"}]
+  )
+
+
+end
+end
+

data/test/tc_trs80.rb

@@ -0,0 +1,66 @@
+require 'testhelper'
+
+class ImageSniffing < Test::Unit::TestCase
+
+  
+  def test_trs80_images
+    
+    
+    
+#    sniff_url("http://disk-images.jamtronix.com/trs80/UTILS.DSK.gz",Trs80Jv1Dsk,TrsDos)
+#    sniff_url("http://disk-images.jamtronix.com/trs80/D61.DSK.gz",Trs80Jv1Dsk,TrsDos)
+    
+    sniff_url("http://disk-images.jamtronix.com/trs80/D4411.DSK.gz",Trs80Jv1Dsk,TrsDos,[
+#    {:filename=>'MD3GAM01/TXT',:text_starts_with=>"================"},
+#    {:filename=>'LOWROLL/BAS',:expected_native_file_type=>Trs80BasicListing},
+    ])
+  
+    sniff_url("http://disk-images.jamtronix.com/trs80/D411.DSK.gz",Trs80Jv1Dsk,TrsDos,[
+    {:filename=>'MD3GAM01/TXT',:text_starts_with=>"================"},
+    {:filename=>'LOWROLL/BAS',:expected_native_file_type=>Trs80BasicListing},
+    ])
+
+    sniff_url("http://disk-images.jamtronix.com/trs80/D112.DSK.gz",Trs80Jv1Dsk,TrsDos,[
+    {:filename=>'AGCAP53/DOC',:text_starts_with=>"AGCAP/CMD version 5.3 documentation."},
+      
+    ])
+    sniff_url("http://disk-images.jamtronix.com/trs80/D418.DSK.gz",Trs80Jv1Dsk,TrsDos,[
+    {:filename=>'TIAR/BAS',:expected_native_file_type=>Trs80LevelIIBasic},
+    {:filename=>'TIAR/INS',:expected_native_file_type=>Trs80LevelIIBasic},
+    {:filename=>'DIR/SYS',:expected_native_file_type=>GenericFile},
+    ])
+
+
+
+    
+    #~ sniff_url("http://disk-images.jamtronix.com/trs80/D500.DSK.gz",Trs80Jv1Dsk,TrsDos)
+    
+    
+    #~ [
+      #~ {:filename=>'INN2/',:expected_native_file_type=>Trs80LevelIIBasic}
+    #~ ])
+
+    
+    sniff_url("http://www.classic-computers.org.nz/system-80/disks/NEWDOS_80sssd_jv1.DSK",Trs80Jv1Dsk,TrsDos,[
+      {:filename=>'CHAINTST/JCL',:expected_native_file_type=>Trs80Jcl,:listing_starts_with=>"/./2THIS MESSAGE SHOULD NOT BE PRINTED"},
+      {:filename=>'EDTASM/CMD',:expected_native_file_type=>Trs80Cmd,:load_address=>0x5200}    ])
+      
+    sniff_url("http://www.classic-computers.org.nz/system-80/disks/BASIC-games-1_80sssd_jv1.DSK",Trs80Jv1Dsk,TrsDos,[
+      {:filename=>'RATS/BAS',:expected_native_file_type=>Trs80LevelIIBasic,:listing_starts_with=>"1 CLS:FORS=0TO44STEP4:FORJ=0TO126STEP6:SET(J,S):NEXTJ,S:FORI=0TO34:READJ:NEXT"}
+    ])
+    
+    
+    sniff_url("http://www.classic-computers.org.nz/system-80/disks/pascal_80sssd_jv1.DSK",Trs80Jv1Dsk,TrsDos,
+    [
+      {:filename=>'MAILIST/SRC',:expected_native_file_type=>Trs80PascalSource,:listing_starts_with=>' '}
+    ])
+    
+    sniff_url("http://www.classic-computers.org.nz/system-80/disks/dunjon_80sssd_jv1.DSK",Trs80Jv1Dsk,TrsDos,
+    [
+      {:filename=>'INN2/',:expected_native_file_type=>Trs80LevelIIBasic}
+    ])
+    
+
+end
+end
+

data/test/testhelper.rb

@@ -6,9 +6,67 @@ $:.unshift(lib_path) unless $:.include?(lib_path)
 require 'test/unit'
 require 'RipXplore'
 require 'FileCache'
-@@filecache=FileCache.new(File.dirname(__FILE__)+"//test_images")
+@@filecache=FileCache.new(File.dirname(__FILE__)+"//test_images",File.dirname(__FILE__)+"//native_files")
 
 LOG_FILE="testlog.txt"
 File.delete(LOG_FILE) if File.exist?(LOG_FILE)
 RipXploreLog.log_to(LOG_FILE)
 RipXploreLog.debug_logging
+
+def image_has_collection_of(url,collection_type)
+  image=@@filecache.get_file_system_image(url)    
+  assert(image.respond_to?(collection_type),"#{url} should contain a collection of #{collection_type}")
+  collection=image.send(collection_type)
+  assert(collection.length>0,"#{url} should contain more than zero #{collection_type}")
+end  
+
+def file_cache
+  @@filecache
+end
+
+def sniff_url(url,expected_image_format,expected_file_system,expected_files=nil)
+    assert(FileSystemImage.is_file_system_image_filename?(url),"#{url} should have a known file system image extension")
+    image=@@filecache.get_file_system_image(url)    
+    assert_equal(expected_file_system,image.file_system,"validation of file system for #{url}")
+    assert_kind_of(expected_image_format,image.image_format,"validation of image format for #{url}")
+    assert_not_nil(image.image_format.host_system.full_name,"all host systems should implement :full_name")
+    return if expected_files.nil?
+    expected_files.each do |expected_file|
+      expected_file_filename=expected_file[:filename]
+      RipXploreLog.info("validating #{expected_file_filename}")
+      raise "no native files identified in image" if image.files.nil? || image.files.length==0
+      raise "image.files should of type FileContainer but was #{image.files.class} (file system=#{image.file_system})" unless image.files.kind_of?(FileContainer)
+      native_file=image.files[expected_file_filename]
+      assert_not_nil(native_file,"#{expected_file_filename} should exist in #{url} - files found: #{image.catalog}")
+      expected_native_file_type=expected_file[:expected_native_file_type]            
+      unless  expected_native_file_type.nil? then
+        assert_kind_of(expected_native_file_type,native_file,"native file type of #{expected_file_filename} should be as specified")
+      end
+      unless  expected_file[:load_address].nil? then
+        assert(expected_file[:load_address]==native_file.load_address,"load address of #{expected_file_filename} should be $#{"%04x" % expected_file[:load_address]} but was $#{"%04X" % native_file.load_address}")
+      end
+      
+      unless  expected_file[:can_execute].nil? then
+        method_to_call=expected_file[:can_execute]
+        native_file.send(method_to_call)        
+      end
+      
+      unless  expected_file[:save_output].nil? then
+        (method_to_call,extension)=expected_file[:save_output]              
+        file_cache.purge_native_file_from_cache(native_file)
+        file_cache.force_native_file_to_cache(native_file,method_to_call,extension)
+      end
+      expected_file_text_starts_with=expected_file[:text_starts_with]
+      unless expected_file_text_starts_with.nil? then
+        assert(native_file.respond_to?(:to_text),"#{expected_file_filename} should respond to :to_text")
+        assert_equal(expected_file_text_starts_with,native_file.to_text[0,expected_file_text_starts_with.length],"start of #{expected_file_filename} should be as specified")
+      end
+
+      expected_file_listing_starts_with=expected_file[:listing_starts_with]
+      unless expected_file_listing_starts_with.nil? then
+        assert(native_file.respond_to?(:to_listing),"#{expected_file_filename} should respond to :to_listing")
+        assert_equal(expected_file_listing_starts_with,native_file.to_listing[0,expected_file_listing_starts_with.length],"start of #{expected_file_filename} should be as specified")
+      end
+
+    end
+  end