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