rtml 2.0.3 → 2.0.4

data/rtml.gemspec

@@ -0,0 +1,65 @@
+# -*- encoding: utf-8 -*-
+
+Gem::Specification.new do |s|
+  s.name = %q{rtml}
+  s.version = "2.0.4"
+
+  s.required_rubygems_version = Gem::Requirement.new(">= 0") if s.respond_to? :required_rubygems_version=
+  s.authors = ["Colin MacKenzie IV"]
+  s.date = %q{2010-07-07}
+  s.default_executable = %q{rtml}
+  s.description = %q{RubyTML (or just RTML) is a Ruby framework for communicating with Ingenico's Incendo-based payment devices.}
+  s.email = ["colin.mackenzie4@ingenico.com"]
+  s.executables = ["rtml"]
+  s.extra_rdoc_files = ["History.txt", "Manifest.txt", "PostInstall.txt"]
+  s.files = ["History.txt", "Manifest.txt", "PostInstall.txt", "README.rdoc", "Rakefile", "app_generators/rtml/USAGE", "app_generators/rtml/rtml_generator.rb", "app_generators/rtml/templates/rtml_template.rb", "bin/rtml", "builtin/controllers/rtml_controller.rb", "builtin/models/rtml/document.rb", "builtin/models/rtml/document_model_object.rb", "builtin/models/rtml/dom/collections/element_set.rb", "builtin/models/rtml/dom/collections/property_set.rb", "builtin/models/rtml/dom/element.rb", "builtin/models/rtml/dom/frontend_element.rb", "builtin/models/rtml/dom/property.rb", "builtin/models/rtml/dom/screen_element.rb", "builtin/models/rtml/instruction.rb", "builtin/models/rtml/instruction/follow_class_methods.rb", "builtin/models/rtml/state.rb", "builtin/models/rtml/state/variable_mapping.rb", "builtin/models/rtml/view.rb", "builtin/rtml_helpers/rtml/get_state.rb", "builtin/rtml_helpers/rtml/rescue_action.rb", "builtin/views/rtml/rescue_action_in_public.rtml.erb", "builtin/views/rtml/rescue_action_locally.rtml.erb", "builtin/widgets/default_document.rb", "builtin/widgets/document_variable_processing.rb", "builtin/widgets/element_builder.rb", "builtin/widgets/event_listener.rb", "builtin/widgets/frontend.rb", "builtin/widgets/highlevel_variable_processing.rb", "builtin/widgets/screen_variable_processing.rb", "builtin/widgets/screen_variants.rb", "builtin/widgets/screens.rb", "builtin/widgets/shorthand.rb", "builtin/widgets/static_content.rb", "do_profile.rb", "generators/rtml_widget/USAGE", "generators/rtml_widget/rtml_widget_generator.rb", "generators/rtml_widget/templates/default_widget.erb", "generators/rtml_widget/templates/default_widget.feature.erb", "generators/rtml_widget/templates/default_widget_spec.erb", "generators/rtml_widget/templates/default_widget_test.erb", "lib/extensions/action_controller/response.rb", "lib/extensions/action_controller/routing/route_set.rb", "lib/extensions/active_support/test_case.rb", "lib/extensions/hpricot/doc.rb", "lib/extensions/hpricot/elem.rb", "lib/extensions/string.rb", "lib/rtml.rb", "lib/rtml/assigns.rb", "lib/rtml/configuration.rb", "lib/rtml/controller/before_filters.rb", "lib/rtml/controller/cache_helpers.rb", "lib/rtml/controller/class_methods/rtml_action_helpers.rb", "lib/rtml/controller/document_generator.rb", "lib/rtml/controller/render_helpers.rb", "lib/rtml/controller/rtml_helpers.rb", "lib/rtml/controller/state.rb", "lib/rtml/controller/template_helpers.rb", "lib/rtml/controller/url_helpers.rb", "lib/rtml/dependencies.rb", "lib/rtml/dsl.rb", "lib/rtml/environment.rb", "lib/rtml/errors/application_error.rb", "lib/rtml/errors/invalid_format.rb", "lib/rtml/errors/invalid_operation.rb", "lib/rtml/errors/invalid_option_error.rb", "lib/rtml/errors/missing_document_error.rb", "lib/rtml/errors/missing_variable_error.rb", "lib/rtml/errors/multiple_roots_error.rb", "lib/rtml/errors/processing_error.rb", "lib/rtml/errors/rules_violation_error.rb", "lib/rtml/errors/screen_not_found.rb", "lib/rtml/errors/screen_variant_error.rb", "lib/rtml/errors/simulation_error.rb", "lib/rtml/errors/sti_type_error.rb", "lib/rtml/errors/subprocessing_not_supported.rb", "lib/rtml/errors/unknown_rtml_action.rb", "lib/rtml/errors/variable_error.rb", "lib/rtml/high_level/managed_variable.rb", "lib/rtml/high_level/variable_manager.rb", "lib/rtml/inherited_instance_variables.rb", "lib/rtml/init.rb", "lib/rtml/rules/dom_ruleset.rb", "lib/rtml/rules/dom_tag.rb", "lib/rtml/rules/dom_validation.rb", "lib/rtml/rules/tml_param_parser.rb", "lib/rtml/test/builtin_variables.rb", "lib/rtml/test/resemblance_test.rb", "lib/rtml/test/screen.rb", "lib/rtml/test/simulator.rb", "lib/rtml/test/simulator_post_processors/base.rb", "lib/rtml/test/simulator_post_processors/card_parsers.rb", "lib/rtml/test/simulator_post_processors/receipt.rb", "lib/rtml/test/simulator_post_processors/submit.rb", "lib/rtml/test/spec.rb", "lib/rtml/test/spec/matchers.rb", "lib/rtml/test/tml_application.rb", "lib/rtml/test/unit.rb", "lib/rtml/test/variable_scope.rb", "lib/rtml/tmlized_conditions.rb", "lib/rtml/version.rb", "lib/rtml/widget.rb", "lib/rtml/widget_core/class_methods.rb", "lib/rtml/widget_core/gui_configuration.rb", "lib/rtml/widget_core/widget_accessor_class_methods.rb", "lib/rtml/widget_core/widget_accessor_instance_methods.rb", "lib/rtml/widget_core/widget_proxy.rb", "lib/rtml/widgets.rb", "lib/rtml_routes.rb", "rails/init.rb", "rails_generators/rtml/USAGE", "rails_generators/rtml/rtml_generator.rb", "rails_generators/rtml/templates/config/initializers/rtml.rb", "rails_generators/rtml/templates/config/tml_dom_ruleset.rb", "rails_generators/rtml/templates/db/migrate/20100108163703_create_rtml_dom_elements.rb", "rails_generators/rtml/templates/db/migrate/20100108163827_create_rtml_dom_properties.rb", "rails_generators/rtml/templates/db/migrate/20100108165127_create_rtml_documents.rb", "rails_generators/rtml/templates/db/migrate/20100110060124_create_rtml_instructions.rb", "rails_generators/rtml/templates/db/migrate/20100110071920_add_parent_id_to_rtml_instructions.rb", "rails_generators/rtml/templates/db/migrate/20100113131401_add_options_to_properties.rb", "rails_generators/rtml/templates/db/migrate/20100127173146_add_parent_type_to_rtml_dom_elements.rb", "rails_generators/rtml/templates/db/migrate/20100208114234_create_rtml_states.rb", "rails_generators/rtml/templates/db/migrate/20100303021609_add_x_and_y_to_rtml_instructions.rb", "rails_generators/rtml/templates/db/migrate/20100513165226_add_options_to_rtml_documents.rb", "rails_generators/rtml/templates/db/migrate/20100513165242_remove_dom_elements_mirror.rb", "rails_generators/rtml/templates/db/migrate/20100513165249_remove_dom_properties_mirror.rb", "rails_generators/rtml/templates/doc/io_tml-application-development-guidelines.pdf", "rails_generators/rtml/templates/lib/tasks/rtml.rake", "rails_generators/rtml_action/USAGE", "rails_generators/rtml_action/rtml_action_generator.rb", "rails_generators/rtml_action/templates/action.erb", "rails_generators/rtml_action/templates/view.erb", "rails_generators/widget/USAGE", "rails_generators/widget/templates/default_widget.erb", "rails_generators/widget/templates/default_widget.feature.erb", "rails_generators/widget/templates/default_widget_spec.erb", "rails_generators/widget/templates/default_widget_test.erb", "rails_generators/widget/widget_generator.rb", "script/console", "script/destroy", "script/generate", "script/server", "spec/controllers/inherited_controller_spec.rb", "spec/controllers/rtml_controller_spec.rb", "spec/lib/extensions/hpricot/doc_spec.rb", "spec/lib/extensions/hpricot/elem_spec.rb", "spec/lib/extensions/string_spec.rb", "spec/lib/rtml/extensions_spec.rb", "spec/lib/rtml/high_level/variable_manager_spec.rb", "spec/lib/rtml/routes_spec.rb", "spec/lib/rtml/rules/dom_ruleset_spec.rb", "spec/lib/rtml/rules/dom_validation_spec.rb", "spec/lib/rtml/test/simulator/receipt_spec.rb", "spec/lib/rtml/test/simulator_spec.rb", "spec/lib/rtml/test/tml_application_spec.rb", "spec/lib/rtml/test/variable_scope_spec.rb", "spec/lib/rtml/widget_core/generic_widget_consumer_spec.rb", "spec/lib/rtml/widget_core/gui_configuration_spec.rb", "spec/lib/rtml/widget_core/widget_proxy_spec.rb", "spec/lib/rtml/widget_spec.rb", "spec/lib/rtml/widgets_spec.rb", "spec/models/rtml/document_spec.rb", "spec/models/rtml/dom/element_spec.rb", "spec/models/rtml/dom/frontend_element_spec.rb", "spec/models/rtml/dom/property_spec.rb", "spec/models/rtml/dom/screen_element_spec.rb", "spec/models/rtml/instruction_spec.rb", "spec/models/rtml/state/variable_mapping_spec.rb", "spec/models/rtml/state_spec.rb", "spec/rcov.opts", "spec/rtml_action_spec.rb", "spec/spec.opts", "spec/spec_helper.rb", "spec/support/app/controllers/application_controller.rb", "spec/support/app/controllers/inherited_controller.rb", "spec/support/app/rtml_helpers/inherited/index.rb", "spec/support/app/rtml_helpers/rtml/index.rb", "spec/support/app/views/README.txt", "spec/support/app/views/inherited/instance_variables_test/display.rtml.erb", "spec/support/app/views/layouts/layout.rtml.erb", "spec/support/app/views/magcard/_partial.erb", "spec/support/app/views/magcard/main.rtml.erb", "spec/support/app/views/rtml/index.html.erb", "spec/support/app/views/rtml/index/main.rtml.erb", "spec/support/config/database.yml", "spec/support/config/environment.rb", "spec/support/config/environments/development.rb", "spec/support/config/initializers/rtml.rb", "spec/support/config/routes.rb", "spec/support/db/rtml_test_db.sqlite3", "spec/support/db/schema.rb", "spec/support/lib/rtml/widgets/test_widget1.rb", "spec/support/lib/rtml/widgets/test_widget2.rb", "spec/support/rails.rb", "spec/support/raw_tml/avs.tml", "spec/support/raw_tml/document_level_events.tml", "spec/support/raw_tml/empty_screen.tml", "spec/support/raw_tml/enter_amount.tml", "spec/support/raw_tml/foreign_receiver.tml", "spec/support/raw_tml/foreign_reference.tml", "spec/support/raw_tml/hello_world.tml", "spec/support/raw_tml/loop_x_times.tml", "spec/support/raw_tml/one_screen_with_setvar.tml", "spec/support/raw_tml/receipt.tml", "spec/support/raw_tml/simulator.tml", "spec/support/raw_tml/tmlvar_reference.tml", "spec/support/raw_tml/user_input.tml", "spec/support/raw_tml/valid_document.tml", "spec/support/rspec/example_groups.rb", "spec/support/rspec/matchers.rb", "spec/support/vendor/gems/rtml-bootstrapper-2.0.0/.specification", "spec/support/vendor/gems/rtml-bootstrapper-2.0.0/lib/init_rtml_working_copy.rb", "spec/support/vendor/gems/rtml-bootstrapper-2.0.0/rtml.gemspec", "spec/widgets/document_variable_processing_spec.rb", "spec/widgets/element_builder_spec.rb", "spec/widgets/event_listener_spec.rb", "spec/widgets/frontend_spec.rb", "spec/widgets/highlevel_variable_processing_spec.rb", "spec/widgets/screen_variable_processing_spec.rb", "spec/widgets/screen_variants_spec.rb", "spec/widgets/screens_spec.rb", "spec/widgets/simulator_post_processors/card_parsers_spec.rb", "spec/widgets/simulator_post_processors/submit_spec.rb", "spec/widgets/static_content_spec.rb", "tasks/db.rake", "tasks/rspec.rake", "tasks/rtml.rake", "tasks/stats.rake", "test/test_generator_helper.rb", "test/test_helper.rb", "test/test_rtml_action_generator.rb", "test/test_rtml_generator.rb", "test/test_rtml_widget_generator.rb", "test/test_widget_generator.rb", "update.rb"]
+  s.homepage = %q{http://www.rubytml.com}
+  s.post_install_message = %q{After adding config.gem 'rtml' to your Rails app, don't forget to run
+
+  script/generate rtml
+
+in order to generate rake tasks, etc.
+
+Further documentation is available at http://www.rubytml.com
+}
+  s.rdoc_options = ["--main", "README.rdoc"]
+  s.require_paths = ["lib"]
+  s.rubyforge_project = %q{rtml}
+  s.rubygems_version = %q{1.3.6}
+  s.summary = %q{RubyTML (or just RTML) is a Ruby framework for communicating with Ingenico's Incendo-based payment devices.}
+  s.test_files = ["test/test_rtml_action_generator.rb", "test/test_widget_generator.rb", "test/test_rtml_generator.rb", "test/test_helper.rb", "test/test_rtml_widget_generator.rb", "test/test_generator_helper.rb"]
+
+  if s.respond_to? :specification_version then
+    current_version = Gem::Specification::CURRENT_SPECIFICATION_VERSION
+    s.specification_version = 3
+
+    if Gem::Version.new(Gem::RubyGemsVersion) >= Gem::Version.new('1.2.0') then
+      s.add_runtime_dependency(%q<rails>, [">= 2.3.5"])
+      s.add_runtime_dependency(%q<hpricot>, [">= 0.8.2"])
+      s.add_runtime_dependency(%q<sc-core-ext>, [">= 1.1.1"])
+      s.add_runtime_dependency(%q<rubigen>, [">= 1.5.2"])
+      s.add_development_dependency(%q<rspec>, [">= 1.3.0"])
+      s.add_development_dependency(%q<rspec-rails>, [">= 1.3.2"])
+      s.add_development_dependency(%q<webrat>, [">= 0.7.0"])
+      s.add_development_dependency(%q<hoe>, [">= 2.5.0"])
+    else
+      s.add_dependency(%q<rails>, [">= 2.3.5"])
+      s.add_dependency(%q<hpricot>, [">= 0.8.2"])
+      s.add_dependency(%q<sc-core-ext>, [">= 1.1.1"])
+      s.add_dependency(%q<rubigen>, [">= 1.5.2"])
+      s.add_dependency(%q<rspec>, [">= 1.3.0"])
+      s.add_dependency(%q<rspec-rails>, [">= 1.3.2"])
+      s.add_dependency(%q<webrat>, [">= 0.7.0"])
+      s.add_dependency(%q<hoe>, [">= 2.5.0"])
+    end
+  else
+    s.add_dependency(%q<rails>, [">= 2.3.5"])
+    s.add_dependency(%q<hpricot>, [">= 0.8.2"])
+    s.add_dependency(%q<sc-core-ext>, [">= 1.1.1"])
+    s.add_dependency(%q<rubigen>, [">= 1.5.2"])
+    s.add_dependency(%q<rspec>, [">= 1.3.0"])
+    s.add_dependency(%q<rspec-rails>, [">= 1.3.2"])
+    s.add_dependency(%q<webrat>, [">= 0.7.0"])
+    s.add_dependency(%q<hoe>, [">= 2.5.0"])
+  end
+end

data/spec/controllers/rtml_controller_spec.rb

@@ -61,7 +61,7 @@ describe RtmlController do
 
   it "get_state should include TML submit structure" do
     get :get_state
-    response.tml_should_resemble :screen => { :submit => [ :getvar ] }
+    response.should resemble_tml(:screen => { :submit => [ :getvar ] })
   end
 
   it "should not override existing rtml helpers" do

data/spec/integration/post_tests_spec.rb

@@ -0,0 +1,8 @@
+require File.join(__FILE__.gsub(/(.*)?\/spec\/.*$/, '\1'), 'spec/spec_helper')
+
+describe "PostTests" do
+  it "should still be able to POST data" do
+    post post_tests_path, {}
+    response.body.should_not contain("No action responded to index")
+  end
+end

data/spec/lib/rtml/high_level/variable_manager_spec.rb

@@ -0,0 +1,8 @@
+require File.join(__FILE__.gsub(/(.*)?\/spec\/.*$/, '\1'), 'spec/spec_helper')
+
+describe Rtml::HighLevel::VariableManager do
+  it "should include the built-in TML variables" do
+    proc { subject['card.pan'] }.should_not raise_error(Rtml::Errors::MissingVariableError)
+    proc { subject['card.input_type'] }.should_not raise_error(Rtml::Errors::MissingVariableError)
+  end
+end

data/spec/lib/rtml/routes_spec.rb

@@ -21,31 +21,32 @@ describe "routes" do
     end
   end
 
-  context "with double connection" do
-    before(:each) do
-      ActionController::Routing::Routes.reload!
-      ActionController::Routing::Routes.draw { |map| map.connect_rtml :controller => 'another' }
-    end
-
-    after(:each) do
-      ActionController::Routing::Routes.reload!
-    end
-
-    # removed since it doesn't really matter in the long run -- this stuff all gets optimized by rails.
-#    it "should not double connect generic routes" do
-#      matches = []
-#      ActionController::Routing::Routes.routes.each do |route|
-#        matches.should_not include(route.segments.to_s)
-#        matches << route.segments.to_s
-#      end
+  # Turns out this was not possible, because Rails freezes the route objects.
+#  context "with double connection" do
+#    before(:each) do
+#      ActionController::Routing::Routes.reload!
+#      ActionController::Routing::Routes.draw { |map| map.connect_rtml :controller => 'another' }
 #    end
-
-    it "should update nongeneric routes" do
+#
+#    after(:each) do
+#      ActionController::Routing::Routes.reload!
+#    end
+#
+#    # removed since it doesn't really matter in the long run -- this stuff all gets optimized by rails.
+##    it "should not double connect generic routes" do
+##      matches = []
+##      ActionController::Routing::Routes.routes.each do |route|
+##        matches.should_not include(route.segments.to_s)
+##        matches << route.segments.to_s
+##      end
+##    end
+#
+#    it "should update nongeneric routes" do
 #      route("/index.tml")[:controller].should == 'another'
-    end
-  end
+#    end
+#  end
 
   it "should match /index.tml" do
-    route("/index.tml").should == { :controller => 'rtml', :action => 'index', :format => 'rtml' }
+    route("/index.tml").should == { :controller => 'inherited', :action => 'index', :format => 'rtml' }
   end
 end

data/spec/lib/rtml/test/simulator/receipt_spec.rb

@@ -0,0 +1,18 @@
+require 'spec_helper'
+
+describe Rtml::Test::Simulator do
+  context "with a receipt" do
+    subject { Rtml::Test::Simulator.new(File.join(File.dirname(__FILE__), '../../../../support/raw_tml/receipt.tml')) }
+
+    it "should clear the receipt buffer" do
+      subject.press(:enter)
+      subject.receipt.clear
+      subject.receipt.should be_blank
+    end
+
+    it "should assign the printer output to the receipt" do
+      subject.press(:enter)
+      subject.receipt.strip.should == "<h1>This is printed content.</h1>"
+    end
+  end
+end

data/spec/lib/rtml/test/simulator_spec.rb

@@ -0,0 +1,185 @@
+require 'spec_helper'
+
+describe Rtml::Test::Simulator do
+  subject do
+    Rtml::Test::Simulator.new(File.join(File.dirname(__FILE__), '../../../support/raw_tml/enter_amount.tml'))
+  end
+
+  context "with AVS" do
+    subject { Rtml::Test::Simulator.new(File.join(File.dirname(__FILE__), '../../../support/raw_tml/avs.tml')) }
+
+    it "should load" do
+      subject
+    end
+  end
+
+  context "supplying input after execution has completed" do
+    subject { Rtml::Test::Simulator.new(File.join(File.dirname(__FILE__), '../../../support/raw_tml/empty_screen.tml'))}
+
+    it "should raise a comprehensible error" do
+      proc { subject.press(:enter) }.should raise_error(Rtml::Errors::ApplicationError)
+    end
+  end
+  
+  it "should let you set HTTP headers" do
+    subject.header("ITID", '100')
+    subject.headers['ITID'].should == '100'
+    subject.should_receive(:get).with('/?ignore_state=true', {}, {'ITID' => '100'})
+    subject.visit("/")
+  end
+
+  it "should define state in the controller" do
+    subject.header("ITID", "100")
+    subject.visit("/rtml/index.rtml")
+    subject.response.template.controller.state.itid.should == '100'
+  end
+
+  context "with a reference to another document" do
+    subject do
+      Rtml::Test::Simulator.new(File.join(File.dirname(__FILE__), '../../../support/raw_tml/foreign_reference.tml'))
+    end
+
+    it "should catch :new_document and use it to make a new request" do
+      subject.press(:menu)
+      subject.current_screen_id.should == "main_menu"
+    end
+  end
+
+  context "with a reference to a TML variable" do
+    subject do
+      Rtml::Test::Simulator.new(File.join(File.dirname(__FILE__), '../../../support/raw_tml/tmlvar_reference.tml'))
+    end
+
+    it "should follow the reference" do
+      subject.press(:menu)
+      subject.current_screen_id.should == "main_menu"
+    end
+    
+    context "in a submit attribute" do
+      subject do
+        Rtml::Test::Simulator.new(File.join(File.dirname(__FILE__), '../../../support/raw_tml/tmlvar_reference.tml'))
+      end
+      
+      it "should follow the reference" do
+        subject.should_receive(:post_data).with("#submitted_to", {"value"=>nil})
+        subject.visit(:submit_scr)
+      end
+    end
+  end
+ 
+  context "with document level events" do
+    subject do
+      Rtml::Test::Simulator.new(File.join(File.dirname(__FILE__), '../../../support/raw_tml/document_level_events.tml'))
+    end
+
+    it "should process menu presses" do
+      subject.press(:menu)
+      subject.current_screen_id.should == 'on_menu'
+    end
+
+    it "should process cancel presses" do
+      subject.press(:cancel)
+      subject.current_screen_id.should == 'on_cancel'
+    end
+  end
+
+  it "should raise on document-level menu presses" do
+    subject.visit "#enter_amt"
+    proc { subject.press(:menu) }.should raise_error(Rtml::Errors::ApplicationError)
+  end
+
+  it "should raise on document-level cancel presses" do
+    subject.visit "#enter_amt"
+    proc { subject.press(:cancel) }.should raise_error(Rtml::Errors::ApplicationError)
+  end
+
+  it "should load a static TML file" do
+    subject
+  end
+
+  it "should be waiting for input" do
+    subject.current_screen_id.should == "idle"
+    subject.should be_waiting_for_input
+  end
+
+  it "should allow to fill in forms" do
+    subject.visit "#enter_amt"
+    subject.fill_in "payment.amount", '100'
+    subject.variables['payment.amount'].should == 100
+  end
+  
+  it "should raise if form does not contain element for specified variable" do
+    subject.visit "#enter_amt"
+    proc { subject.fill_in "missing_field", '100' }.should raise_error(Rtml::Errors::SimulationError)
+  end
+
+  it "should allow to follow hyperlinks by inner text, case insensitive" do
+    subject.follow_link("make a payment")
+    subject.current_screen_id.should == "enter_amt"
+  end
+
+  it "should allow to follow hyperlinks by href" do
+    subject.follow_link("#enter_amt")
+    subject.current_screen_id.should == "enter_amt"
+  end
+
+  it "should raise if link is not found" do
+    proc { subject.follow_link("missing_link") }.should raise_error(Rtml::Errors::SimulationError)
+  end
+
+  it "should allow to press a key" do
+    subject.visit "#enter_amt"
+    subject.press("OK")
+    subject.current_screen_id.should_not == "#enter_amt"
+  end
+
+  it "should pause at card parsers" do
+    subject.visit "#enter_amt"
+    subject.press("OK")
+    subject.continue(:ignore_display => true)
+    subject.current_screen_id.should == "swipe"
+  end
+
+  context "at a screen with a properly configured card reader" do
+    before(:each) { subject.visit "#swipe" }
+    context "when :visa card is swiped" do
+      before(:each) { subject.swipe_card(:visa) }
+
+      it "should set variables" do
+        subject.variables['card.pan'].should == 4111111111111111
+        subject.variables['card.scheme'].should == 'VISA'
+      end
+
+      it "should continue execution" do
+        subject.current_screen_id.should_not == "swipe"
+      end
+    end
+  end
+
+  it "should not allow card swipes without properly configured card reader" do
+    subject.visit "#risk"
+    proc { subject.swipe_card(:visa) }.should raise_error(Rtml::Errors::SimulationError)
+  end
+
+  it "should raise if visiting a missing screen" do
+    proc { subject.visit "#missingscrn" }.should raise_error(Rtml::Errors::ApplicationError)
+  end
+
+  it "should not allow card swipes without card parsers" do
+    subject.visit "#enter_amt"
+    proc { subject.swipe_card(:visa) }.should raise_error(Rtml::Errors::SimulationError)
+  end
+
+  # this is really where Cucumber should start to come in handy.
+  context "after selecting 'make a payment'" do
+    before(:each) { subject.follow_link("Make a payment") }
+
+    context "after filling in 'amount' with '$1.00'" do
+      before(:each) { subject.fill_in "payment.amount", '100'; subject.press("OK") }
+
+      it "should display the amount" do
+        subject.current_screen.to_s.should match(/Amount Due:/)
+      end
+    end
+  end
+end

data/spec/lib/rtml/test/tml_application_spec.rb

@@ -0,0 +1,119 @@
+require 'spec_helper'
+
+describe Rtml::Test::Simulator do
+  def tml_file(name)
+    name = "#{name}.tml" unless name[/\.tml$/]
+    File.read(File.join(File.dirname(__FILE__), '../../../support/raw_tml', name))
+  end
+
+  context "with a hello world app" do
+    subject { Rtml::Test::TmlApplication.new(tml_file("hello_world")) }
+
+    it "should have 2 screens" do
+      subject.screens.should have(2).elements
+    end
+
+    it "should start at the first screen in the document" do
+      subject.current_screen_id.should == "init"
+    end
+
+    it "should allow stepping through 1 screen at a time" do
+      subject.step
+      subject.current_screen_id.should == "idle"
+    end
+
+    it "should detect circular references and return :looping from #continue" do
+      subject.continue(:ignore_display => true).should == :looping
+    end
+
+    it "should detect circular references and wait at the end of the loop" do
+      subject.continue
+      # if it actually followed the directive, it'd be at #init again.
+      subject.current_screen_id.should == "idle"
+    end
+  end
+
+  context "testing variable processing" do
+    context "with a single operand" do
+      subject { Rtml::Test::TmlApplication.new(tml_file("one_screen_with_setvar")) }
+      
+      before(:each) do
+        subject.continue
+      end
+
+      it "should have assigned a value" do
+        subject.variable_scope['payment.amount'].should == 100
+      end
+    end
+
+    context "within a loop" do
+      subject { Rtml::Test::TmlApplication.new(tml_file("loop_x_times")) }
+      before(:each) do
+        subject.continue
+        subject.variable_scope.update('target', 5)
+        subject.current_screen_id.should == "idle"
+        subject.step_forward
+      end
+
+      it "should complete with counter == 5" do
+        subject.continue(:complete)
+        subject.current_screen_id.should == "complete"
+        subject.variable_scope['counter'].should == 5
+      end
+    end
+  end
+
+  context "testing user input" do
+    subject { Rtml::Test::TmlApplication.new(tml_file("user_input")) }
+                                
+    context "via hotkeys" do
+      before(:each) { subject.jump_to_screen :hotkeys }
+
+      it "should start at the #hotkeys screen" do
+        subject.current_screen_id.should == "hotkeys"
+      end
+
+      it "should return :waiting from continue" do
+        subject.continue.should == :waiting
+      end
+    end
+
+    context "for screen level" do
+      context "menu and cancel" do
+        before(:each) { subject.jump_to_screen(:test_menu) }
+
+        it "should follow to #on_menu on menu press" do
+          subject.trigger_button_press(:menu)
+          subject.current_screen_id.should == "on_menu"
+        end
+
+        it "should follow to #on_cancel on cancel press" do
+          subject.trigger_button_press(:cancel)
+          subject.current_screen_id.should == "on_cancel"
+        end
+
+        it "should follow 1 to #main" do
+          subject.trigger_button_press(:cancel)
+          subject.trigger_button_press(1)
+          subject.current_screen_id.should == "main"
+        end
+      end
+    end
+
+    context "via hyperlinks" do
+      it "should pause at #main" do
+        subject.continue
+        subject.current_screen_id.should == "main"
+      end
+
+      it "should return :waiting when continuing into #main" do
+        subject.continue.should == :waiting
+      end
+
+      it "should return :waiting when stepping out of #main" do
+        subject.step # step out of #init
+        subject.step.should == :waiting # stepping out of #main
+      end
+    end
+  end
+end