scruby 0.2.7

data/spec/buffer_spec.rb

@@ -0,0 +1,199 @@
+require File.expand_path(File.dirname(__FILE__)) + "/helper"
+
+require 'date'
+require 'arguments'
+require 'tempfile'
+
+require "scruby/buffer"
+require "scruby/bus"
+require "scruby/server"
+require File.join( File.expand_path(File.dirname(__FILE__)), "server")
+
+
+
+include Scruby
+
+
+describe Buffer do
+  describe "messaging" do
+    before :all do
+      @server = Server.new
+      @server.boot
+      @server.send "/dumpOSC", 3
+      sleep 0.05
+    end
+    
+    after :all do
+      @server.quit
+    end
+    
+    describe 'Buffer.read' do
+      before do
+        @buffer = Buffer.read @server, "sounds/a11wlk01-44_1.aiff"
+        sleep 0.005
+      end
+      
+      it "should instantiate and send /b_allocRead message" do
+        @buffer.should be_a(Buffer)
+        @server.output.should =~ %r{\[ "/b_allocRead", #{ @buffer.buffnum }, "/.+/Scruby/sounds/a11wlk01-44_1.aiff", 0, -1, DATA\[20\] \]}
+      end
+      
+      it "should allow passing a completion message"
+    end
+
+    describe 'Buffer.allocate' do
+      before do
+        @buffer = Buffer.allocate @server, 44100 * 8.0, 2
+        sleep 0.005
+      end
+      
+      it "should call allocate and send /b_alloc message" do
+        @buffer.should be_a(Buffer)
+        @server.output.should =~ %r{\[ "/b_alloc", #{ @buffer.buffnum }, 352800, 2, 0 \]}
+        @server.output.should =~ /69 00 00 00  00 00 00 00  00 44 ac 48  00 00 00 02/
+      end
+      
+      it "should allow passing a completion message"
+    end
+  
+    describe 'Buffer.cueSoundFile' do
+      before do
+        @buffer = Buffer.cue_sound_file @server, "/sounds/a11wlk01-44_1.aiff", 0, 1
+        sleep 0.005
+      end
+      
+      it "should send /b_alloc message and instantiate" do
+        @buffer.should be_a(Buffer)
+        @server.output.should =~ %r{\[ "/b_alloc", #{ @buffer.buffnum }, 32768, 1, DATA\[72\] \]}
+        @server.output.should =~ /6e 64 73 2f  61 31 31 77  6c 6b 30 31  2d 34 34 5f/
+      end
+      
+      it "should allow passing a completion message"
+    end
+  
+    describe '#free' do
+      before do
+        @buffer  = Buffer.allocate @server, 44100 * 10.0, 2
+        @buffer2 = Buffer.allocate @server, 44100 * 10.0, 2
+        @bnum    = @buffer2.buffnum
+        @buffer2.free
+        sleep 0.005
+      end
+      
+      it "should remove itself from the server @buffers array and send free message" do
+        @buffer2.buffnum.should be_nil
+        @server.output.should =~ %r{\[ "/b_free", #{ @bnum }, 0 \]}
+      end
+      
+      it "should allow passing a completion message"
+      
+    end
+    
+    describe 'Buffer.alloc_consecutive' do
+      before do
+        @buffers = Buffer.alloc_consecutive 8, @server, 4096, 2
+        sleep 0.005
+      end
+      
+      it "should send alloc message for each Buffer and instantiate" do
+        @buffers.should have(8).buffers
+        @buffers.each do |buff|
+          @server.output.should =~ %r{\[ "/b_alloc", #{ buff.buffnum }, 4096, 2, 0 \]}
+        end
+      end
+      
+      it "should allow passing a message"
+    end
+    
+    describe 'Buffer.read_channel' do
+      before do
+        @buffer = Buffer.read_channel @server, "sounds/SinedPink.aiff", :channels => [0]
+        sleep 0.005
+      end
+      
+      it "should allocate and send /b_allocReadChannel message" do
+        @buffer.should be_a(Buffer)
+        @server.output.should =~ %r{\[ "/b_allocReadChannel", #{ @buffer.buffnum }, "/.+/Scruby/sounds/SinedPink.aiff", 0, -1, 0, DATA\[20\] \]}
+      end
+    end
+  
+    describe '#read' do
+      before do
+        @buffer  = Buffer.allocate( @server, 44100 * 10.0, 2 ).read( "sounds/robot.aiff" )
+        sleep 0.005
+      end
+      
+      it "should send message" do
+        @buffer.should be_a(Buffer)
+        @server.output.should =~ %r{\[ "/b_read", #{ @buffer.buffnum }, "/.+/Scruby/sounds/robot.aiff", 0, -1, 0, 0, DATA\[20\] \]}
+      end
+      
+      it "should allow passing a completion message"
+    end
+    
+    describe '#close' do
+      before do
+        @buffer  = Buffer.read( @server, "sounds/a11wlk01-44_1.aiff" ).close
+        sleep 0.005
+      end
+      
+      it "should send message" do
+        @buffer.should be_a(Buffer)
+        @server.output.should =~ %r{\[ "/b_close", #{ @buffer.buffnum }, 0 \]}
+      end
+      
+      it "should allow passing a completion message"
+    end
+    
+    describe '#zero' do
+      before do
+        @buffer  = Buffer.read( @server, "sounds/a11wlk01-44_1.aiff" ).zero
+        sleep 0.005
+      end
+
+      it "should send message" do
+        @buffer.should be_a(Buffer)
+        @server.output.should =~ %r{\[ "/b_zero", #{ @buffer.buffnum }, 0 \]}
+      end
+
+      it "should allow passing a completion message"
+    end
+
+    describe '#cue_sound_file' do
+      before do
+        @buffer  = Buffer.allocate( @server, 44100, 2 ).cue_sound_file( "sounds/robot.aiff" )
+        sleep 0.005
+      end
+      
+      it "should send message" do
+        @buffer.should be_a(Buffer)
+        @server.output.should =~ %r{\[ "/b_read", #{ @buffer.buffnum }, "/.+/Scruby/sounds/robot.aiff", 0, 44100, 0, 1, 0 \]}
+      end
+      
+      it "should allow passing a completion message"
+    end
+    
+    describe '#write' do
+      before do
+        @buffer  = Buffer.allocate( @server, 44100 * 10.0, 2 ).write(
+          "sounds/test.aiff", "aiff", "int16", 0, 0, true
+        );
+        sleep 0.005
+      end
+      
+      it "should send message" do
+        @buffer.should be_a(Buffer)
+        @server.output.should =~ %r{\[ "/b_write", #{ @buffer.buffnum }, "/.+/Scruby/sounds/test.aiff", "aiff", "int16", 0, 0, 1, 0 \]}
+      end
+      
+      it "should have a default path" do
+        @server.flush
+        buffer  = Buffer.allocate( @server, 44100 * 10.0, 2 ).write( nil, "aiff", "int16", 0, 0, true );
+        sleep 0.005
+        @server.output.should =~ %r{\[ "/b_write", #{ buffer.buffnum }, "/.+/Scruby/\d\d\d\d.+\.aiff", "aiff", "int16", 0, 0, 1, 0 \]}
+      end
+      
+      it "should allow passing a completion message"
+    end
+  end
+end

data/spec/bus_spec.rb

@@ -0,0 +1,184 @@
+require File.expand_path(File.dirname(__FILE__)) + "/helper"
+
+require 'tempfile'
+
+require "scruby/core_ext/numeric"
+require "scruby/bus"
+require "scruby/server"
+require File.join( File.expand_path(File.dirname(__FILE__)), "server")
+
+include Scruby
+
+
+describe Bus do
+  describe 'instantiation' do
+    before do
+      @server  = Server.new
+      @audio   = Bus.audio   @server
+      @control = Bus.control @server
+    end
+    
+    it "should be a bus" do
+      @audio.should be_a(Bus)
+      @control.should be_a(Bus)
+    end
+    
+    it "should not instantiate with new" do
+      lambda { Bus.new @server, :control, 1 }.should raise_error(NoMethodError)
+    end
+    
+    it "should set server" do
+      @audio.server.should == @server
+    end
+    
+    it "should set audio rate" do
+      @audio.rate.should == :audio
+    end
+    
+    it "should set control rate" do
+      Bus.control(@server).rate.should == :control
+    end
+    
+    it "should allocate in server on instantiation and have index" do
+      @server.audio_buses.should include(@audio)
+      @server.control_buses.should include(@control)
+    end
+    
+    it "should have index" do
+      @audio.index.should == 16
+      @control.index.should == 0
+    end
+
+    it "should free and null index" do
+      @audio.free
+      @server.audio_buses.should_not include(@audio)
+      @audio.index.should == nil
+      @control.free
+      @server.audio_buses.should_not include(@control)
+      @control.index.should == nil
+    end
+    
+    it "should return as map if control" do
+      @control.to_map.should == "c0"
+    end
+    
+    it "should raise error if calling to_map on an audio bus" do
+      lambda { @audio.to_map }.should raise_error(SCError)
+    end
+    
+    it "should print usefull information with to_s"
+    
+    it "should be hardware out" do
+      @server.audio_buses[0].should be_audio_out
+      @audio.should_not be_audio_out
+    end
+    
+    describe 'multichannel' do
+      before do
+        @server   = Server.new
+        @audio    = Bus.audio   @server, 4
+        @control  = Bus.control @server, 4
+      end
+      
+      it "should allocate consecutive when passing more than one channel for audio" do
+        @audio.index.should == 16
+        buses = @server.audio_buses
+        buses[16..-1].should have(4).elements
+        Bus.audio(@server).index.should == 20
+      end
+      
+      it "should allocate consecutive when passing more than one channel for control" do
+        @control.index.should == 0
+        @server.control_buses.should have(4).elements
+        Bus.control(@server).index.should == 4
+      end
+      
+      it "should set the number of channels" do
+        @audio.channels.should   == 4
+        @control.channels.should == 4
+      end
+      
+      it "should depend on a main bus" do
+        @server.audio_buses[16].main_bus.should  == @audio   #main bus
+        @server.audio_buses[17].main_bus.should  == @audio   #main bus
+        @server.control_buses[0].main_bus.should == @control #main bus
+        @server.control_buses[1].main_bus.should == @control #main bus
+      end
+    end
+  end
+  
+  describe "messaging" do
+    before :all do
+      @server = Server.new
+      @server.boot
+      @server.send "/dumpOSC", 3
+      @bus = Bus.control @server, 4
+      sleep 0.05
+    end    
+
+    after :all do
+      @server.quit
+    end
+    
+    before do
+      @server.flush
+    end
+    
+    describe 'set' do
+      it "should send set message with one value" do
+        @bus.set 101
+        sleep 0.01
+        @server.output.should =~ %r{\[ "/c_set", #{ @bus.index }, 101 \]}
+      end
+      
+      it "should accept value list and send set with them" do
+        @bus.set 101, 202
+        sleep 0.01
+        @server.output.should =~ %r{\[ "/c_set", #{ @bus.index }, 101, #{ @bus.index + 1}, 202 \]}
+      end
+      
+      it "should accept an array and send set with them" do
+        @bus.set [101, 202]
+        sleep 0.01
+        @server.output.should =~ %r{\[ "/c_set", #{ @bus.index }, 101, #{ @bus.index + 1}, 202 \]}
+      end
+      
+      it "should warn but not set if trying to set more values than channels" do
+        @bus.should_receive(:warn).with("You tried to set 5 values for bus #{ @bus.index } that only has 4 channels, extra values are ignored.")
+        @bus.set 101, 202, 303, 404, 505
+        sleep 0.01
+        @server.output.should =~ %r{\[ "/c_set", #{ @bus.index }, 101, #{ @bus.index + 1}, 202, #{ @bus.index + 2}, 303, #{ @bus.index + 3}, 404 \]}
+      end
+    end
+    
+    describe 'set' do
+      it "should send fill just one channel" do
+        @bus.fill 101, 1
+        sleep 0.01
+        @server.output.should =~ %r{\[ "/c_fill", #{ @bus.index }, 1, 101 \]}
+      end
+      
+      it "should fill all channels" do
+        @bus.fill 101
+        sleep 0.01
+        @server.output.should =~ %r{\[ "/c_fill", #{ @bus.index }, 4, 101 \]}
+      end
+      
+      it "should raise error if trying to fill more than assigned channels" do
+        @bus.should_receive(:warn).with("You tried to set 5 values for bus #{ @bus.index } that only has 4 channels, extra values are ignored.")
+        @bus.fill 101, 5
+        sleep 0.01
+        @server.output.should =~ %r{\[ "/c_fill", #{ @bus.index }, 4, 101 \]}
+      end
+    end
+    
+    describe 'get' do
+      it "should send get message with one value"
+      it "should send get message for various channels"
+      it "should accept an array and send set with them"
+      it "should raise error if trying to set more values than channels"
+      it "should actually get the response from the server"
+    end
+
+  end
+end

data/spec/core_ext/core_ext_spec.rb

@@ -0,0 +1,120 @@
+require File.expand_path(File.dirname(__FILE__)) + "/../helper"
+
+
+
+describe Numeric do
+  before :all do
+      @bin_op        = mock 'binop'
+      ::BinaryOpUGen = mock 'BinaryOpUGen', :new => @bin_on
+      @ugen          = mock 'ugen'
+      ::Ugen         = mock 'Ugen', :new => @ugen
+    end
+  
+  it "shoud have an scalar rate" do
+      1.rate.should == :scalar
+    end
+    
+   it "should have an scalar rate" do
+     100.0.rate.should == :scalar
+   end
+   
+   it "sum as usual" do
+     (100 + 100).should == 200 
+   end
+   
+   it "should #collect_constants" do
+     1.send( :collect_constants ).should   == 1
+     1.5.send( :collect_constants ).should == 1.5
+   end
+   
+   it "should spec #input_specs" do
+     synthdef = mock('synthdef', :constants => [200.0,1,3, 400.0] )
+     200.0.send( :input_specs, synthdef ).should == [-1,0]
+     3.send( :input_specs, synthdef ).should == [-1,2]
+     400.0.send( :input_specs, synthdef ).should == [-1,3]
+   end
+   
+   it "should spec encode"  
+end
+
+
+describe Proc do
+  describe "#arguments" do
+    
+    it do
+      Proc.new{}.should respond_to( :arguments )
+    end
+    
+    it "should get empty array if proc has no args" do
+      Proc.new{}.arguments.should eql( [] )
+    end
+    
+    it "should get one argument name" do
+      Proc.new{ |arg|  }.arguments.should eql( [ :arg ] )
+    end
+    
+    it "should get arg names with several args" do
+      Proc.new{ |arg, arg2, arg3|  }.arguments.should eql( [ :arg, :arg2, :arg3 ] )
+    end
+  end
+end
+
+describe Array, "monkey patches" do
+  describe "#collect_with_index" do
+    it do
+      [].should respond_to( :collect_with_index )
+    end
+    
+    it "should return an array the same size as the original" do
+      [1,2,3,4].collect_with_index{ nil }.should have( 4 ).items
+    end
+    
+    it "should collect_with_index" do
+      array = %w(a, b, c, d)
+      array.collect_with_index{ |element, index| [index, element] }.should eql( [0,1,2,3].zip( array ) )
+    end
+    
+    it "should wrap and zip" do
+      [:a,:b,:c].wrap_and_zip([1]).flatten.should == [:a,1,:b,1,:c,1]
+      [0.5, 0.5].wrap_and_zip([3],[5]).flatten.should == [0.5,3,5,0.5,3,5]
+      [0.01, 1.0].wrap_and_zip([-4.0],[5]).flatten.should ==  [0.01, -4.0, 5, 1.0, -4.0, 5]
+    end
+  end
+  
+  describe "#wrap_to" do
+    it do
+      Array.new.should respond_to( :wrap_to )
+    end
+    
+    it "should wrap_to!" do
+      [1,2].wrap_to!(4).should == [1,2,1,2]
+    end
+    
+    it do
+      Array.new.should respond_to( :wrap_to )
+    end
+    
+    it "should return self if the passed size is the same as self.size" do
+      a = [1,2,3,4]
+      a.wrap_to( 4 ).should == a
+    end
+  end
+  
+  it "should sum with Ugen"
+  it "should collect constants"
+end
+
+describe String do
+  it "should encode" do
+    "SinOsc".encode.should == [6, 83, 105, 110, 79, 115, 99].pack('C*')
+  end
+  
+  it "should encode large strings" do
+    'set arguments cn.argNum << this is the size of controlNames when controlName was added'.encode.should ==
+      [86, 115, 101, 116, 32, 97, 114, 103, 117, 109, 101, 110, 116, 115, 32, 99, 110, 46, 97, 114, 103, 78, 117, 109, 32, 60, 60, 32, 116, 104, 105, 115, 32, 105, 115, 32, 116, 104, 101, 32, 115, 105, 122, 101, 32, 111, 102, 32, 99, 111, 110, 116, 114, 111, 108, 78, 97, 109, 101, 115, 32, 119, 104, 101, 110, 32, 99, 111, 110, 116, 114, 111, 108, 78, 97, 109, 101, 32, 119, 97, 115, 32, 97, 100, 100, 101, 100].pack('C*')
+  end
+  
+end
+
+
+

data/spec/core_ext/delegator_array_spec.rb

@@ -0,0 +1,144 @@
+require File.expand_path(File.dirname(__FILE__)) + "/../helper"
+
+require "scruby/core_ext/array"
+require "scruby/core_ext/delegator_array"
+require "scruby/env"
+require "scruby/control_name"
+require "scruby/ugens/ugen"
+require "scruby/ugens/ugens"
+require "scruby/ugens/ugen_operations"
+require "scruby/ugens/operation_ugens"
+
+include Scruby
+include Ugens
+
+class MockUgen < Ugen
+  class << self; public :new; end
+end
+
+
+class SinOsc < Ugen
+  class << self
+    def ar freq = 440.0, phase = 0.0 #not interested in muladd by now
+      new :audio, freq, phase
+    end
+    
+    def kr freq = 440.0, phase = 0.0
+      new :control, freq, phase
+    end
+  end
+end
+
+# Mocks
+class ControlName; end
+class Env; end
+
+describe DelegatorArray do
+  
+  it "should have 'literal' notation" do
+    d(1,2).should   == [1,2]
+    d(1,2).should be_instance_of(DelegatorArray)
+    d([1,2]).should == d(1,2)
+  end
+  
+  it "should allow nil" do
+    d(nil)
+  end
+  
+  it "should return DelegatorArray" do
+    sig = SinOsc.ar([100, [100, 100]])
+    sig.should be_a(DelegatorArray)
+  end
+  
+  it "should convet to_da" do
+    [].to_da.should be_a(DelegatorArray)
+  end
+  
+  it "should pass missing method" do
+    d(1,2).to_f.should == d(1.0,2.0)
+  end
+  
+  it "should return a DelegatorArray for muladd" do
+    SinOsc.ar(100).muladd(1, 0.5).should be_a(BinaryOpUGen)
+    SinOsc.ar([100, [100, 100]]).muladd(0.5, 0.5).should be_a(DelegatorArray)
+    # SinOsc.ar([100, [100, 100]]).muladd(1, 0.5).should be_a(DelegatorArray)
+  end
+
+  
+  it "should pass method missing" do
+    d(1,2,3).to_i.should == [1.0, 2.0, 3.0]
+  end
+  
+  shared_examples_for 'aritmetic operand' do
+    before do
+      @numeric_op     = eval %{ d(1,2)   #{ @op } 3.0 }
+      @array_op       = eval %{ d(1,2)   #{ @op } d(1.0, 2.0) }
+      @asim_array_op1 = eval %{ d(1,2,3) #{ @op } d(1.0, 2.0) }
+    end
+    
+    it "should do operation" do
+      @numeric_op.should == @numeric_op
+      @numeric_op.should be_a(DelegatorArray)
+    end
+    
+    it "should do operation with array of the same size" do
+      @array_op.should == @array_result
+      @array_op.should be_a(DelegatorArray)
+    end
+    
+    it "should do operation with array of diferent size (left bigger)" do
+      @asim_array_op1.should == @asim_result1
+      @asim_array_op1.should be_a(DelegatorArray)
+    end
+    
+    it "should blow passing nil" do
+      lambda { d(1,2,3,nil) + 1 }.should raise_error(NoMethodError)
+    end
+    
+    it "should blow pass nil" do
+      actual   = eval %{ d(1,2,3) #{ @op } MockUgen.new(:audio, 2)}
+      expected = BinaryOpUGen.new(@op.to_sym, [1,2,3], MockUgen.new(:audio, 2) )
+      actual.should == expected
+    end
+
+    it "should allow passing an MockUgen Array" do
+      eval %{ SinOsc.ar([100, [100, 100]]) #{@op} SinOsc.ar }
+    end
+  end
+  
+  describe "should override sum" do
+    before do
+      @op           = '+'
+      @array_result = d(1+1.0, 2+2.0)
+      @asim_result1 = d(1+1.0, 2+2.0, 3)
+    end
+    it_should_behave_like 'aritmetic operand'
+  end
+  
+  describe "should override subs" do
+    before do
+      @op           = '-'
+      @array_result = d(1-1.0, 2-2.0)
+      @asim_result1 = d(1-1.0, 2-2.0, 3)
+    end
+  end
+  
+  describe "should override mult" do
+    before do
+      @op           = '*'
+      @array_result = d(1*1.0, 2*2.0)
+      @asim_result1 = d(1*1.0, 2*2.0, 3)
+    end
+    it_should_behave_like 'aritmetic operand'
+  end
+  
+  describe "should override div" do
+    before do
+      @op           = '/'
+      @array_result = d(1/1.0, 2/2.0)
+      @asim_result1 = d(1/1.0, 2/2.0, 3)
+    end
+    it_should_behave_like 'aritmetic operand'
+  end
+
+end