win32-autogui 0.2.0

data/examples/quicknote/quicknote.dpr

@@ -0,0 +1,16 @@
+program quicknote;
+
+uses
+  Forms,
+  FormMainU in 'FormMainU.pas' {FormMain},
+  FormAboutU in 'FormAboutU.pas' {FormAbout},
+  FormSplashU in 'FormSplashU.pas' {FormSplash};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.Title := 'QuickNote';
+  Application.CreateForm(TFormMain, FormMain);
+  Application.Run;
+end.

data/examples/quicknote/spec/quicknote/form_about_spec.rb

@@ -0,0 +1,50 @@
+require File.expand_path(File.dirname(__FILE__) + '/../spec_helper')
+
+include Autogui::Input
+
+describe "FormAbout" do
+
+  before(:all) do
+    @application = Quicknote.new
+  end
+
+  after(:all) do
+    @application.close(:wait_for_close => true) if @application.running?
+    @application.should_not be_running
+  end
+
+  before(:each) do
+    @application.dialog_about.should be_nil
+    @application.set_focus
+    keystroke(VK_MENU, VK_H, VK_A) 
+    @dialog_about = @application.dialog_about
+    @dialog_about.should_not be_nil
+    @dialog_about.is_window?.should == true
+  end
+
+  after(:each) do
+    @dialog_about.close if @dialog_about.is_window?
+    @dialog_about.is_window?.should == false
+  end
+
+  it "should open with the hotkey combination VK_MENU, VK_H, VK_A" do
+    @dialog_about.is_window?.should == true
+  end
+
+  it "should close by hitting return" do
+    @dialog_about.set_focus
+    keystroke(VK_RETURN) 
+    @application.dialog_about.should be_nil
+  end
+
+  it "should have the title 'About QuickNote'" do
+    @dialog_about.title.should == "About QuickNote"
+  end
+
+  it "should have an 'OK' button" do
+    button = @dialog_about.children.find {|w| w.window_class == 'TButton'}
+    button.should_not be_nil
+    button.text.should match(/^OK$/)
+  end
+
+end

data/examples/quicknote/spec/quicknote/form_main_spec.rb

@@ -0,0 +1,274 @@
+require File.expand_path(File.dirname(__FILE__) + '/../spec_helper')
+
+include Autogui::Input
+
+describe "FormMain" do
+  before(:all) do
+    @debug = false
+    @verbose = true
+    @application = Quicknote.new
+    FileUtils.rm_rf(current_dir)
+    puts "FormMain before(:all)" if @debug
+    puts "application:\n#{@application.inspect}\n" if @debug && @verbose
+    puts "application.combined_text:\n #{@application.combined_text}\n" if @debug && @verbose
+  end
+  before(:each) do
+    @application = Quicknote.new unless @application.running?
+    @application.should be_running
+    @application.set_focus
+    puts "FormMain before(:each)" if @debug
+  end
+  after(:all) do
+    if @application.running?
+      @application.file_exit 
+      # still running? force it to close
+      @application.close(:wait_for_close => true)
+      @application.should_not be_running
+    end
+    puts "FormMain after(:all)" if @debug
+  end
+  after(:each) do
+    if @application.running?
+      keystroke(VK_N) if @application.message_dialog_confirm || @application.dialog_overwrite_confirm
+      keystroke(VK_ESCAPE) if @application.error_dialog
+    end
+    puts "FormMain after(:each)" if @debug
+  end
+
+  describe "after startup" do
+    it "should have the title 'QuickNote - untitled.txt'" do
+      @application.main_window.title.should == "QuickNote - untitled.txt"
+    end
+    it "should have no text" do
+      @application.edit_window.text.should == '' 
+    end
+  end
+
+  describe "editing text" do
+    after(:each) do
+      @application.file_new(:save => false)
+    end
+
+    it "should add the '+' modified flag to the title" do
+      @application.main_window.title.should == "QuickNote - untitled.txt"
+      type_in("hello")
+      @application.main_window.title.should == "QuickNote - +untitled.txt"
+    end
+    it "should change the text" do
+      @application.edit_window.text.should == '' 
+      type_in("hello")
+      @application.edit_window.text.should == 'hello' 
+    end
+  end
+
+  describe "file open (VK_MENU, VK_F, VK_O)" do
+    before(:each) do
+      @filename = "input_file.txt"
+      @file_contents = create_file(@filename, "the quick brown fox")
+      @application.file_new(:save => false)
+    end
+    after(:each) do
+      keystroke(VK_N) if @application.message_dialog_confirm
+      keystroke(VK_ESCAPE) if @application.file_open_dialog 
+    end
+
+    it "should prompt to save with modified text" do
+      type_in("foobar")
+      @application.main_window.title.should match(/\+/)
+      keystroke(VK_MENU, VK_F, VK_O) 
+      @application.message_dialog_confirm.should_not be_nil
+    end
+    it "should not prompt to save with unmodified text" do
+      @application.main_window.title.should_not match(/\+/)
+      keystroke(VK_MENU, VK_F, VK_O) 
+      @application.message_dialog_confirm.should be_nil
+    end
+
+    describe "succeeding" do 
+      it "should add the filename to the title" do
+        @application.main_window.title.should == "QuickNote - untitled.txt"
+        @application.file_open(fullpath(@filename), :save => false)
+        @application.main_window.title.should == "QuickNote - #{fullpath(@filename)}"
+      end
+      it "should load the text" do
+        @application.file_open(fullpath(@filename), :save => false)
+        @application.edit_window.text.should == 'the quick brown fox' 
+      end
+    end
+
+    describe "failing" do 
+      it "should show an error dialog with message 'Cannot open file'" do
+        type_in("foobar")
+        @application.file_open(fullpath("a_bogus_filename.txt"), :save => false)
+        @application.error_dialog.should_not be_nil
+        @application.error_dialog.combined_text.should match(/Cannot open file/)
+      end
+      it "should keep existing text" do
+        type_in("foobar")
+        @application.file_open(fullpath("a_bogus_filename.txt"), :save => false)
+        @application.error_dialog.should_not be_nil
+        @application.edit_window.text.should == 'foobar' 
+      end
+    end
+  end
+
+  describe "file new (VK_MENU, VK_F, VK_N)" do
+    it "should prompt to save modified text" do
+      type_in("hello")
+      @application.main_window.title.should match(/\+/)
+      keystroke(VK_MENU, VK_F, VK_N) 
+      @application.message_dialog_confirm.should_not be_nil
+    end
+    it "should not prompt to save with unmodified text" do
+      @application.file_new(:save => false)
+      @application.main_window.title.should_not match(/\+/)
+      keystroke(VK_MENU, VK_F, VK_N) 
+      @application.message_dialog_confirm.should be_nil
+    end
+    it "should add the filename 'untitled.txt' to the title" do
+      filename = "input_file.txt"
+      file_contents = create_file(filename, "the quick brown fox")
+      @application.file_open(filename, :save => false)
+      @application.main_window.title.downcase.should == "QuickNote - #{fullpath(filename)}".downcase
+      @application.file_new(:save => false)
+      @application.main_window.title.should == "QuickNote - untitled.txt"
+    end
+    it "should remove the '+' modified flag from the title" do
+      type_in("hello")
+      @application.main_window.title.should match(/\+/)
+      @application.file_new(:save => false)
+      @application.main_window.title.should_not match(/\+/)
+    end
+    it "should clear the existing text" do
+      type_in("hello")
+      @application.edit_window.text.should match(/hello/) 
+      @application.file_new(:save => false)
+      @application.edit_window.text.should == '' 
+    end
+  end
+  
+  describe "file save (VK_MENU, VK_F, VK_S)" do
+    before(:each) do
+      @filename = "input_file.txt"
+      @file_contents = create_file(@filename, "original content")
+      @application.file_open(fullpath(@filename), :save => false)
+      @application.main_window.title.downcase.should == "QuickNote - #{fullpath(@filename)}".downcase
+      @application.edit_window.text.should == "original content" 
+      @application.set_focus
+    end
+
+    it "should do nothing unless modified text" do
+      append_to_file(@filename, "sneak in extra content that shouldn't be here")
+      contents = get_file_content(@filename)
+      contents.should match(/extra content/)
+      @application.file_save
+      contents.should match(/extra content/)
+      @application.edit_window.text.should_not match(/extra content/)
+    end
+
+    describe "succeeding" do 
+      it "should remove the '+' modified flag from the title" do
+        type_in("anything")
+        @application.main_window.title.should == "QuickNote - +#{fullpath(@filename)}"
+        @application.file_save
+        @application.main_window.title.should == "QuickNote - #{fullpath(@filename)}"
+      end
+      it "should save the text" do
+        type_in("foobar")
+        @application.edit_window.text.should == "foobar" + "original content"
+        @application.file_save
+        get_file_content(@filename).should == "foobar" + "original content"
+      end
+    end
+
+    describe "failing" do 
+      before(:each) do
+        # set read-only to cause save failure
+        in_current_dir do
+          `attrib +R #{@filename}`
+        end
+      end
+      after(:each) do
+        # cleanup read-only file
+        FileUtils.rm_rf(current_dir)
+      end
+
+      it "should show an error dialog with message 'Cannot create file'" do
+        type_in("anything")
+        @application.file_save
+        @application.error_dialog.should_not be_nil
+        @application.error_dialog.combined_text.should match(/Cannot create file/)
+      end
+      it "should keep the '+' modified flag on the title" do
+        type_in("anything")
+        @application.file_save
+        @application.main_window.title.should == "QuickNote - +#{fullpath(@filename)}"
+      end
+      it "should keep existing text" do
+        type_in("anything")
+        @application.file_save
+        @application.edit_window.text.should ==  "anything" + "original content"
+      end
+    end
+  end
+
+  describe "file save as (VK_MENU, VK_F, VK_A)" do
+    before(:each) do
+      @filename = "original.txt"
+      @file_contents = create_file(@filename, "original content")
+      @saveas_filename = "newfile.txt"
+      create_file(@saveas_filename,  "")
+      @application.file_open(fullpath(@filename), :save => false)
+    end
+    after(:each) do
+      keystroke(VK_N) if @application.dialog_overwrite_confirm
+      keystroke(VK_ESCAPE) if @application.file_save_as_dialog 
+    end
+
+    it "should prompt for filename" do
+      keystroke(VK_MENU, VK_F, VK_A) 
+      @application.file_save_as_dialog.should_not be_nil
+    end
+    it "should confirm file overwrites" do
+      type_in("anything")
+      keystroke(VK_MENU, VK_F, VK_A) 
+      @application.clipboard.text = fullpath(@saveas_filename)
+      keystroke(VK_CONTROL, VK_V)
+      keystroke(VK_RETURN) 
+      File.exists?(fullpath(@saveas_filename)).should be_true
+      @application.dialog_overwrite_confirm.should_not be_nil
+    end
+    it "should remove the '+' modified flag from the title" do
+      type_in("anything")
+      @application.main_window.title.should match(/\+/)
+      @application.file_save_as(fullpath(@saveas_filename), :overwrite => true)
+      @application.main_window.title.should_not match(/\+/)
+    end
+    it "should add the filename to the title" do
+      @application.file_save_as(fullpath(@saveas_filename), :overwrite => true)
+      @application.main_window.title.downcase.should == "QuickNote - #{fullpath(@saveas_filename)}".downcase
+    end
+    it "should save the text" do
+      get_file_content(@saveas_filename).should == ''
+      @application.file_save_as(fullpath(@saveas_filename), :overwrite => true)
+      get_file_content(@saveas_filename).should match(/original content/)
+    end
+  end
+
+  describe "file exit (VK_MENU, VK_F, VK_X)" do
+    it "should prompt and save with modified text" do
+      type_in("anything")
+      keystroke(VK_MENU, VK_F, VK_X) 
+      @application.message_dialog_confirm.should_not be_nil
+      @application.main_window.is_window?.should == true
+      @application.should be_running
+    end
+    it "should not prompt to save with unmodified text" do
+      keystroke(VK_MENU, VK_F, VK_X) 
+      @application.message_dialog_confirm.should be_nil
+      @application.main_window.is_window?.should == false
+      @application.should_not be_running
+    end
+  end
+
+end

data/examples/quicknote/spec/quicknote/form_splash_spec.rb

@@ -0,0 +1,44 @@
+require File.expand_path(File.dirname(__FILE__) + '/../spec_helper')
+
+include Autogui::Input
+
+describe "FormSplash" do
+  after(:all) do
+    if @application.running?
+      @application.splash.wait_for_close if @application.splash
+      @application.file_exit 
+      # still running? force it to close
+      @application.close(:wait_for_close => true)
+      @application.should_not be_running
+    end
+  end
+
+  describe "startup with no command line parameters" do
+    before(:all) do
+      # --nosplash is the default, turn it back on
+      @application = Quicknote.new :parameters => ''
+      @application.should be_running
+    end
+
+    it "should show" do
+      @application.splash.should_not be_nil
+    end
+    it "should close within 5 seconds" do
+      @application.splash.should_not be_nil
+      seconds = 5
+      timeout(seconds) do
+        @application.splash.wait_for_close
+      end
+      @application.splash.should be_nil
+    end
+  end
+
+  describe "startup with '--nosplash' command line parameter" do
+    it "should not show" do
+      @application = Quicknote.new :parameters => '--nosplash'
+      @application.should be_running
+      @application.splash.should be_nil
+    end
+  end
+
+end

data/examples/quicknote/spec/spec.opts

@@ -0,0 +1,2 @@
+--color
+--format nested

data/examples/quicknote/spec/spec_helper.rb

@@ -0,0 +1,34 @@
+$LOAD_PATH.unshift File.expand_path('..', __FILE__) unless
+  $LOAD_PATH.include? File.expand_path('..', __FILE__)
+$LOAD_PATH.unshift File.expand_path('../../lib', __FILE__) unless
+  $LOAD_PATH.include? File.expand_path('../../lib', __FILE__)
+
+# use development version of win32/autogui
+# remove these lines in production code
+$LOAD_PATH.unshift File.expand_path('../../../../lib', __FILE__) unless
+  $LOAD_PATH.include? File.expand_path('../../../../lib', __FILE__)
+
+require 'rubygems'
+require 'win32/autogui'
+require 'quicknote'
+require 'spec'
+require 'spec/autorun'
+require 'aruba/api'
+
+# aruba helper, returns full path to files in the aruba tmp folder
+def fullpath(filename)
+  path = File.expand_path(File.join(current_dir, filename))
+  path = `cygpath -w #{path}`.chomp if path.match(/^\/cygdrive/)  # cygwin?
+  path
+end
+
+# return the contents of "filename" in the aruba tmp folder
+def get_file_content(filename)
+  in_current_dir do
+    IO.read(filename)
+  end
+end
+
+Spec::Runner.configure do |config|
+   config.include Aruba::Api
+end

data/examples/quicknote/spec/watchr.rb

@@ -0,0 +1,143 @@
+# Watchr: Autotest like functionality
+#
+# gem install watchr
+#
+# Run me with:
+#
+#   $ watchr spec/watchr.rb
+
+require 'term/ansicolor'
+
+$c = Term::ANSIColor
+
+def getch
+  state = `stty -g`
+  begin
+    `stty raw -echo cbreak`
+    $stdin.getc
+  ensure
+    `stty #{state}`
+  end
+end
+
+# --------------------------------------------------
+# Convenience Methods
+# --------------------------------------------------
+def all_feature_files
+  Dir['features/*.feature']
+end
+
+def all_spec_files
+  files = Dir['spec/**/*_spec\.rb']
+end
+
+def run(cmd)
+
+  pid = fork do
+    puts "\n"
+    print $c.cyan, cmd, $c.clear, "\n"
+    exec(cmd)
+  end
+  Signal.trap('INT') do
+    puts "sending KILL to pid: #{pid}"
+    Process.kill("KILL", pid)
+  end
+  Process.waitpid(pid)
+
+  prompt
+end
+
+def run_all
+  run_all_specs
+  run_default_cucumber
+end
+
+# allow cucumber rerun.txt smarts
+def run_default_cucumber
+  cmd = "cucumber"
+  run(cmd)
+end
+
+def run_all_features
+  cmd = "cucumber #{all_feature_files.join(' ')}"
+  run(cmd)
+end
+
+def run_feature(feature)
+  cmd = "cucumber #{feature}"
+  $last_feature = feature
+  run(cmd)
+end
+
+def run_last_feature
+  run_feature($last_feature) if $last_feature
+end
+
+def run_default_spec
+  cmd = "spec _1.3.1_ --color --format s ./spec"
+  run(cmd)
+end
+
+def run_all_specs
+  cmd = "spec _1.3.1_ --color --format s #{all_spec_files.join(' ')}"
+  p cmd
+  run(cmd)
+end
+
+def run_spec(spec)
+  cmd = "spec _1.3.1_ --color --format s #{spec}"
+  $last_spec = spec
+  run(cmd)
+end
+
+def run_last_spec
+  run_spec($last_spec) if $last_spec
+end
+
+def prompt
+  puts "Ctrl-\\ for menu, Ctrl-C to quit"
+end
+
+# init
+$last_feature = nil
+prompt
+
+# --------------------------------------------------
+# Watchr Rules
+# --------------------------------------------------
+watch( '^features/(.*)\.feature'   )   { run_default_cucumber }
+
+#watch( '^bin/(.*)'   )   { run_default_cucumber }
+watch( '^lib/(.*)'   )   { run_default_cucumber }
+
+watch( '^features/step_definitions/(.*)\.rb' )   { run_default_cucumber }
+watch( '^features/support/(.*)\.rb' )   { run_default_cucumber }
+
+watch( '^spec/(.*)_spec\.rb'   )   { |m| run_spec(m[0]) }
+# specify just the lib files that have specs
+# TODO: This can be determined automatically from the spec file naming convention
+watch( '^lib/(.*)'   )   { run_default_spec }
+
+# --------------------------------------------------
+# Signal Handling
+# --------------------------------------------------
+
+# Ctrl-\
+Signal.trap('QUIT') do
+
+  puts "\n\nMENU: a = all , f = features  s = specs, l = last feature (#{$last_feature ? $last_feature : 'none'}), q = quit\n\n"
+  c = getch
+  puts c.chr
+  if c.chr == "a"
+    run_all
+  elsif c.chr == "f"
+    run_default_cucumber
+  elsif c.chr == "s"
+    run_all_specs
+  elsif c.chr == "q"
+    abort("exiting\n")
+  elsif c.chr == "l"
+    run_last_feature
+  end
+
+end