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("c64seq.d64","antidote.seq")
#    save_screendump_for_file("c64seq.d64","params.seq")

    save_screendump_for_file("http://www.robohara.com/temp/d64/OKK-098B.d64","rad wars")
    save_screendump_for_file("http://commodorefiles.zapto.org/Commodore%20Software/Zimmers/cbm/plus4/magazines/Synergy/Signals%2007-1.d64.gz","-g.mail")
    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