#!/usr/bin/ruby
require 'testhelper'

class ImageSniffing < Test::Unit::TestCase

  
  def test_c64_images


	f=sniff_url("http://lyonlabs.org/commodore/geoLink/geoLink-20100414.d64",D64,CbmDos,
      [{:filename=>"GEOlINK.INC",:expected_native_file_type=>C64GeoWriteFile,:save_output=>[:to_icon,'icon.png']}]
    )
	icon_tag_0=f.icon_tag

	f=sniff_url("http://cbmfiles.com/genie/geniefiles/GEOSArts/GEOC.06A.CVT",CVT,CVTArchive,
	[{:filename=>"geoc.6a/scrap 33",:expected_native_file_type=>C64PhotoScrap,:save_output=>[:to_picture,'png']}]
	)
	icon_tag_1=f.icon_tag
	assert_not_equal(icon_tag_0,icon_tag_1)
	
	f=sniff_url("http://cbmfiles.com/genie/geniefiles/GEOSArts/BL-SPORTS.CVT",CVT,CVTArchive,
	[{:filename=>"BL.Sports/Bowling1",:expected_native_file_type=>C64PhotoScrap,:save_output=>[:to_picture,'png']}]
	)
	icon_tag_2=f.icon_tag	
	assert_equal(icon_tag_1,icon_tag_2)
	
	f=sniff_url("http://cbmfiles.com/genie/geniefiles/GEOSArts/COUNTRY-PIC.CVT",CVT,CVTArchive,
	[{:filename=>"COUNTRY SCENERY",:expected_native_file_type=>C64GeoPaintPic,:save_output=>[:to_picture,'png']}]
	)


	f=sniff_url("http://cbmfiles.com/genie/geniefiles/GEOSArts/CMDHARDWARE.CVT",CVT,CVTArchive,
	[{:filename=>"CMD Hardware/CMD FD-2000",:expected_native_file_type=>C64PhotoScrap,:save_output=>[:to_picture,'png']}]
	)
	
	f.file_system_image.pictures.each do |p|
		file_cache.purge_native_file_from_cache(p)
		file_cache.force_native_file_to_cache(p,:to_picture,'png')
	end

	f=sniff_url("http://cbmfiles.com/genie/geniefiles/GEOSArts/GEOC.01A.CVT",CVT,CVTArchive,
	[{:filename=>"geoc.1a",:expected_native_file_type=>C64GeosPhotoAlbum}]
	)		
	f.file_system_image.pictures.each do |p|
		file_cache.purge_native_file_from_cache(p)
		file_cache.force_native_file_to_cache(p,:to_picture,'png')
	end

		
#  - photo album

	[[:to_picture,'png'],[:to_font,'bdf']].each do |args|
	   	sniff_url("http://cbmfiles.com/genie/geniefiles/GEOSFonts/SUPRA-SEXY.CVT",CVT,CVTArchive,
	      [{:filename=>"Supra Sexy",:expected_native_file_type=>C64GeosFont,:save_output=>args}]
    	)
	    sniff_url("http://cbmfiles.com/genie/geniefiles/GEOSFonts/ZAPF.FONT.CVT",CVT,CVTArchive,
    	  [{:filename=>"ZAPF 10 14",:expected_native_file_type=>C64GeosFont,:save_output=>args}]
	    )    

		sniff_url("http://lyonlabs.org/commodore/onrequest/geos/geosfonts1.d64",D64,CbmDos,
		  [
		  {:filename=>"America",:expected_native_file_type=>C64GeosFont,:action=>args},
		  {:filename=>"BONANZA",:expected_native_file_type=>C64GeosFont,:save_output=>args},
		  {:filename=>"Cursive",:expected_native_file_type=>C64GeosFont,:save_output=>args},
		  ]
		)
		
		sniff_url("http://cbmfiles.com/genie/geniefiles/GEOSFonts/STENCIL.CVT",CVT,CVTArchive,
	      [{:filename=>"STENCIL",:expected_native_file_type=>C64GeosFont,:save_output=>args}]
    	)

    	sniff_url("http://cbmfiles.com/genie/geniefiles/GEOSFonts/PRINCETONFNT.CVT",CVT,CVTArchive,
      	[{:filename=>"PRINCETON24 PD",:expected_native_file_type=>C64GeosFont,:save_output=>args}]
    	)

	end


    
 #	f=sniff_url("http://cbmfiles.com/genie/geniefiles/GEOSFonts/60DPIMEGAS.SFX",D64,CbmDos,
 #     [{:filename=>"klingon ship",:expected_native_file_type=>C64GeoPaintPic,:save_output=>[:to_picture,'png']}]
 #   )
    
 	f=sniff_url("http://lyonlabs.org/commodore/onrequest/geos/geos-klingon.d64",D64,CbmDos,
      [{:filename=>"klingon ship",:expected_native_file_type=>C64GeoPaintPic,:save_output=>[:to_picture,'png']}]
    )
  
 	sniff_url("http://lyonlabs.org/commodore/onrequest/geos/diskart-1.d64",D64,CbmDos,
      [{:filename=>"goodies 1",:expected_native_file_type=>C64GeoPaintPic,:save_output=>[:to_picture,'png']}]
    )
    
    sniff_url("http://lyonlabs.org/commodore/onrequest/geos/diskart-1.d64",D64,CbmDos,
      [{:filename=>"goodies  2",:expected_native_file_type=>C64GeoPaintPic,:save_output=>[:to_picture,'png']}]
    )

 	f=sniff_url("http://lyonlabs.org/commodore/onrequest/geos/diskart-1.d64",D64,CbmDos,
      [{:filename=>"Holidays 1",:expected_native_file_type=>C64GeoPaintPic,:save_output=>[:to_picture,'png']}]
    )
  
#  	puts f.to_info_dump
 
    
	f=get_file_from_url("http://lyonlabs.org/commodore/geoLink/geoLink-20100414.d64","geoLinkIRCd")
   	f.to_text
	f.to_hex_dump
#	puts f.file_system_image.to_info_dump
  f=get_file_from_url("http://lyonlabs.org/commodore/geoLink/geoLink-1.00.d64","TURBOBOOT")
#  puts f.to_hex_dump
 
 	
    
  f=get_file_from_url("http://lyonlabs.org/commodore/onrequest/geos/geosfonts1.d64","America")
  
  sniff_url("http://lyonlabs.org/commodore/onrequest/geos/mystic-jim-2a.d64",D64,CbmDos,[
      {:filename=>"BOOTSTRAP 1.3",:load_address=>0x0801,:listing_starts_with=>"1984 SYS2078"}
    ])
#   puts f.to_hex_dump
#   puts f.to_info_dump
#return 
#   puts f.file_system_image.to_info_dump
 
  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