neo_rad 0.4.0

data/spec/examples/hello_world.rb

@@ -0,0 +1,11 @@
+# Hardware: LED connected on pin 7
+
+class HelloWorld < ArduinoSketch
+  output_pin 7, :as => :led
+  def loop
+    digitalWrite led, ON
+    delay 500
+    digitalWrite led, OFF
+    delay 500
+  end
+end

data/spec/examples/serial_motor.rb

@@ -0,0 +1,12 @@
+# Hardware: motor control circuit (i.e. TIP-120 control pin)
+#           connected at pin 7.
+#     Demo: http://www.youtube.com/watch?v=7OguEBfdTe0
+
+class SerialMotor < ArduinoSketch
+  output_pin 7, :as => :motor
+  serial_begin
+  
+  def loop
+    digitalWrite(motor, serial_read) if serial_available
+  end
+end

data/spec/models/arduino_sketch_spec.rb

@@ -0,0 +1,82 @@
+require File.dirname(__FILE__) + '/spec_helper.rb'
+require File.expand_path(File.dirname(__FILE__) + "/../../lib/rad/arduino_sketch.rb")
+
+context "Arduino#serial_begin" do
+  setup do
+    @as = ArduinoSketch.new
+  end
+  
+  specify "should default baud_rate to 9600" do
+    @as.serial_begin
+    @as.instance_variable_get("@other_setup").should include("Serial.begin(9600);")
+  end
+  specify "should set an alternate baud_rate if told" do
+    @as.serial_begin :rate => 2400
+    @as.instance_variable_get("@other_setup").should include("Serial.begin(2400);")
+  end
+  specify "should add the correct function call to the composed_setup" do
+    @as.serial_begin
+    @as.compose_setup.should match(Regexp.new(Regexp.escape("Serial.begin(9600);")))
+  end
+end
+
+
+context "Arduino Base" do
+  setup do
+    @as = ArduinoSketch.new
+  end
+  
+  specify "output_pin method without :as arg. should add the pin to the pin_mode hash's output list and leave the declarations alone" do
+    @as.output_pin 1
+    @as.instance_variable_get("@declarations").first.should == nil
+    @as.instance_variable_get("@pin_modes")[:output].should include(1)
+  end
+  
+  specify "output_pin method with :as arg. should add the pin to the pin_mode hash's output list write the appropriate declaration and accessor" do
+    @as.output_pin 3, :as => :led
+    @as.instance_variable_get("@declarations").first.should == "int _led = 3;"
+    @as.instance_variable_get("@accessors").first.should == "int led(){\nreturn _led;\n}"
+    @as.instance_variable_get("@pin_modes")[:output].should include(3)
+  end
+  
+  specify "output_pins method should add the pin to the pin_mode hash's output list and leave the declarations and accessors alone" do
+    @as.output_pins [5,4,3,2]
+    @as.instance_variable_get("@pin_modes")[:output].should include(5)
+    @as.instance_variable_get("@pin_modes")[:output].should include(4)
+    @as.instance_variable_get("@pin_modes")[:output].should include(3)
+    @as.instance_variable_get("@pin_modes")[:output].should include(2)
+    @as.instance_variable_get("@declarations").first.should == nil
+    @as.instance_variable_get("@accessors").first.should == nil
+  end
+  
+  specify "input_pin method with :as arg. should add the pin to the pin_mode hash's input list write the appropriate declaration and accessor" do
+    @as.input_pin 1, :as => :knob
+    @as.instance_variable_get("@declarations").first.should == "int _knob = 1;"
+    @as.instance_variable_get("@accessors").first.should == "int knob(){\nreturn _knob;\n}"
+    @as.instance_variable_get("@pin_modes")[:input].should include(1)
+  end
+  
+  specify "input_pins method should add the pins to the pin_mode hash's input list and leave the declarations and accessors alone" do
+    @as.input_pins [5,4,3,2]
+    @as.instance_variable_get("@pin_modes")[:input].should include(5)
+    @as.instance_variable_get("@pin_modes")[:input].should include(4)
+    @as.instance_variable_get("@pin_modes")[:input].should include(3)
+    @as.instance_variable_get("@pin_modes")[:input].should include(2)
+    @as.instance_variable_get("@declarations").first.should == nil
+    @as.instance_variable_get("@accessors").first.should == nil
+  end
+  
+  specify "compose_setup should append each appropriate pinMode statement and :as accessor to the setup_function string with a newline" do
+    @as.output_pins [1, 2]
+    @as.input_pin 3, :as => :button
+    
+    result = @as.send :compose_setup
+    
+    result.should match(Regexp.new(Regexp.escape("pinMode(1, OUTPUT);\n")))
+    result.should match(Regexp.new(Regexp.escape("pinMode(2, OUTPUT);\n")))
+    result.should match(Regexp.new(Regexp.escape("pinMode(3, INPUT);\n")))
+    result.should match(Regexp.new(Regexp.escape("int _button = 3;\n")))
+    result.should match(Regexp.new(Regexp.escape("int button(){\nreturn _button;\n}")))
+  end
+  
+end

data/spec/models/sketch_compiler_spec.rb

@@ -0,0 +1,96 @@
+require File.dirname(__FILE__) + '/spec_helper.rb'
+require File.expand_path(File.dirname(__FILE__) + "/../../lib/rad/sketch_compiler.rb")
+
+context "SketchCompiler#sketch_methods" do
+  before do
+    @as = File.expand_path(File.dirname(__FILE__)) + "/../../lib/examples/i2c_with_clock_chip.rb"
+    @sc = SketchCompiler.new @as
+  end
+  
+  it "should locate all the methods defined in the sketch" do
+    @sc.sketch_methods.should include( "loop")
+    @sc.sketch_methods.should include( "printlz")
+    @sc.sketch_methods.should include( "print_hexbyte")
+    @sc.sketch_methods.should include( "clear_bottom_line")
+  end
+end
+
+context "SketchCompiler#process_constants" do
+  before do
+    @as = File.expand_path(File.dirname(__FILE__)) + "/../../lib/examples/external_variable_fu.rb"
+    @sc = SketchCompiler.new @as
+  end
+  
+  it "should correctly process constants" do
+    @sc.process_constants
+    @sc.body.should_not match(/HIGH/)
+    @sc.body.should_not match(/LOW/)
+    @sc.body.should_not match(/ON/)
+    @sc.body.should_not match(/OFF/)
+  end
+end
+
+context "SketchCompiler.new" do
+  before do
+    @as = File.expand_path(File.dirname(__FILE__)) + "/../../lib/examples/add_hysteresis.rb"
+  end
+  it "should correctly absolutize a path with /../ that starts at /" do
+    SketchCompiler.new(@as).path.should == "/Users/greg/code/rad/lib/examples/add_hysteresis.rb"
+  end
+  
+  it "should correct absolutize a relative path" do
+    SketchCompiler.new("lib/examples/add_hysteresis.rb").path.should == "/Users/greg/code/rad/lib/examples/add_hysteresis.rb"
+  end
+  
+  it "should load the body of the sketch" do
+    sc = SketchCompiler.new @as
+    sc.body.should == open(@as).read
+  end
+    
+end
+
+context "SketchCompiler#sketch_class" do
+  before do
+    @sc = SketchCompiler.new File.expand_path(File.dirname(__FILE__)) + "/../../lib/examples/add_hysteresis.rb"
+  end
+  it "should calculate correctly from the path" do
+    @sc.klass.should == "AddHysteresis"
+  end
+end
+
+context "SketchCompiler#create_build_dir! without a path prefix" do
+  before do
+    @sc = SketchCompiler.new("lib/examples/add_hysteresis.rb")
+  end
+  it "should create the sketch dir in the correct place" do
+    @sc.should_receive( :mkdir_p ).with( "/Users/greg/code/rad/lib/examples/add_hysteresis" )
+    @sc.create_build_dir!
+  end
+end
+
+context "SketchCompiler#create_build_dir! with a path prefix" do
+  before do
+    @sc = SketchCompiler.new("lib/examples/add_hysteresis.rb")
+  end
+  it "should create the sketch dir in the correct place" do
+    @sc.should_receive( :mkdir_p ).with( "prefix/add_hysteresis" )
+    @sc.create_build_dir! "prefix"
+  end
+end
+
+context "SketchCompiler#build_dir" do
+  before do
+    @sc = SketchCompiler.new("lib/examples/add_hysteresis.rb")
+  end
+  
+  
+  it "should be correct with a default target_dir" do
+    @sc.build_dir.should == "/Users/greg/code/rad/lib/examples/add_hysteresis"
+  end
+  
+  it "should be correct with an altered target_dir" do
+    @sc.target_dir = "examples"
+    @sc.build_dir.should == "examples/add_hysteresis"
+  end
+  
+end

data/spec/models/spec_helper.rb

@@ -0,0 +1,2 @@
+require 'rubygems'
+require 'spec'

data/spec/sim/hello_world_spec.rb

@@ -0,0 +1,42 @@
+require File.dirname(__FILE__) + './models/spec_helper.rb'
+require File.expand_path(File.dirname(__FILE__) + "/../../lib/rad/sim/arduino_sketch.rb")
+require File.expand_path(File.dirname(__FILE__) + "/../examples/hello_world.rb" )
+
+context "ArduinoSketch running HelloWorld example" do
+  it "should successfully make an instance" do
+    lambda{HelloWorld.new}.should_not raise_error
+  end
+end
+
+context "HelloWorld#led" do
+  it "should return a correctly configured Pin" do
+    p = HelloWorld.new.led
+    p.type.should == :output
+    p.num.should == 7
+    p.value.should == false
+  end
+end
+
+context "HelloWorld#digitalWrite" do
+  setup do
+    @h = HelloWorld.new
+  end 
+
+  it "should set the value of the pin to true if told to" do
+    @h.digitalWrite(@h.led, ON)
+    @h.led.value.should == true
+  end
+
+  it "should set the value of the pin to false if told to" do
+    @h.digitalWrite(@h.led, OFF)
+    @h.led.value.should == false
+  end
+end
+
+context "HelloWorld#delay" do
+  it "should maybe keep track of the time in some way?"
+end
+
+context "HelloWorld#loop" do
+  it "should execute the loop in the context of the instance"
+end

data/spec/spec.opts

@@ -0,0 +1 @@
+--colour