scruby 0.2.7

data/spec/core_ext/typed_array_spec.rb

@@ -0,0 +1,95 @@
+require File.expand_path(File.dirname(__FILE__)) + "/../helper"
+require "scruby/core_ext/typed_array" 
+
+class Type
+end
+
+describe TypedArray do
+  
+  before do
+    @t1 = Type.new
+    @t2 = Type.new
+  end
+  
+  it "should initialize with attributes" do
+    objs = (0..3).map{ Type.new }
+    ta   = TypedArray.new( Type, objs )
+    ta.type.should == Type
+    ta.should      == objs
+  end
+  
+  it "should instantiate with an array" do
+    objs = (0..3).map{ Type.new }
+    ta   = TypedArray.new( Type, objs )
+    ta.should == objs
+  end
+  
+  it "set type by instance" do
+    ta = TypedArray.new( Type.new )
+    ta.type.should == Type
+  end
+  
+  it "should raise error if wrong type" do
+    lambda{ TypedArray.new(Type, 1) }.should raise_error(TypeError)
+  end
+  
+  it "+ success" do
+    ta  = TypedArray.new( Type )
+    o   = Type.new
+    sum = ta + [o]
+    # sum.should be_instance_of(TypedArray)
+    sum.should == [o]
+  end
+  
+  it "+ failure" do
+    lambda{ TypedArray.new(Type, Type.new) + [1] }.should raise_error(TypeError)
+  end
+  
+  it "concat success" do
+    ta = TypedArray.new( Type, [@t1] )
+    ta.concat( [@t2] ).should == ta
+    ta.should == [@t1,@t2]
+  end
+  
+  it "concat failure" do
+    lambda{ TypedArray.new(Type, Type.new).concat( 1 ) }.should raise_error(TypeError)
+    lambda{ TypedArray.new(Type, Type.new).concat( [1] ) }.should raise_error(TypeError)
+  end
+  
+  it "<< success" do
+    ta = TypedArray.new(Type) << @t1
+    ta.should == [@t1]
+  end
+  
+  it "<< failure" do
+    lambda{ TypedArray.new(Type, Type.new) << [1] }.should raise_error(TypeError)
+  end
+  
+  it "[]= success" do
+    ta = TypedArray.new(Type)
+    ta[0]= @t1
+    ta[0].should == @t1
+  end
+  
+  it "[]= failure" do
+    lambda{ TypedArray.new(Type, Type.new)[0]= 1 }.should raise_error(TypeError)
+  end
+  
+  it "push success" do
+    ta = TypedArray.new(Type)
+    ta.push( @t1 )
+    ta.should == [@t1]
+  end
+  
+  it "push failure" do
+    lambda{ TypedArray.new(Type, Type.new).push(1) }.should raise_error(TypeError)
+  end
+  
+  it "should convert to array" do
+    ta = TypedArray.new(Type)
+    ta.to_a.should be_instance_of(Array)
+  end
+
+end
+
+

data/spec/demand_spec.rb

@@ -0,0 +1,81 @@
+require File.expand_path(File.dirname(__FILE__)) + "/helper"
+
+require "scruby/core_ext/delegator_array"
+require "scruby/control_name"
+require "scruby/env"
+require "scruby/ugens/ugen" 
+require "scruby/ugens/ugen_operations" 
+require "scruby/ugens/multi_out"
+require "scruby/ugens/ugens" 
+require "scruby/ugens/demand"
+
+include Scruby
+include Ugens
+
+class MockUgen < Ugen
+  class << self; public :new; end
+end
+
+describe Demand do
+  shared_examples_for 'Demand Ugen' do
+    before do
+      @prox     = @splatted ? Demand.send( @method, *@ugens) : Demand.send( @method, @ugens)
+      @instance = @splatted ? @prox.source : @prox.first.source
+    end
+    
+    it "should output proxies or single proxie" do
+      @splatted ? @prox.each{ |prox| prox.should be_a(OutputProxy) } : @prox.should( be_a(OutputProxy) )
+    end
+  end
+  
+  shared_examples_for 'Demand with ar' do
+    before do
+      @method = :ar
+    end
+    it_should_behave_like 'Demand Ugen'
+  end
+  
+  shared_examples_for 'Demand with kr' do
+    before do
+      @method = :ar
+    end
+    it_should_behave_like 'Demand Ugen'
+  end
+  
+
+  
+  describe 'Single channel splatted input' do
+    before do
+      @channels = 1
+      @ugens    = [MockUgen.new(:audio, 1, 2)] * 4
+      @splatted = true
+    end
+    
+  end
+  
+  describe "Single channel array input" do
+    before do
+      @channels = 1
+      @ugens    = [MockUgen.new(:audio, 1, 2)] * 4
+      @splatted = false
+    end
+    
+  end
+
+    # describe "Two channel splatted input" do
+    #   before do
+    #     @channels = 2
+    #     @splatted = false
+    #   end
+    #   
+    # end
+    # 
+    # describe "Two channel array input" do
+    #   before do
+    #     @channels = 2
+    #     @splatted = false
+    #   end
+    #   
+    # end
+
+end

data/spec/disk_in_out_spec.rb

@@ -0,0 +1,138 @@
+require File.expand_path(File.dirname(__FILE__)) + "/helper"
+
+require "scruby/core_ext/delegator_array"
+require "scruby/core_ext/array"
+require "scruby/control_name"
+require "scruby/env"
+require "scruby/synthdef"
+require "scruby/ugens/ugen" 
+require "scruby/ugens/ugen_operations"
+require "scruby/ugens/operation_ugens" 
+require "scruby/ugens/multi_out"
+require "scruby/ugens/ugens" 
+require "scruby/ugens/disk_in_out"
+
+include Scruby
+include Ugens
+
+class MockUgen < Ugen
+  class << self; public :new; end
+end
+
+describe 'IO ugens' do
+  describe DiskOut, 'one channel' do
+    before do
+      @sdef  = SynthDef.new :out do |bufnum|
+        @out = DiskOut.ar bufnum, WhiteNoise.ar
+      end
+    end
+
+    it "should output zero" do
+      @out.should == 0.0
+    end
+
+    it "should encode correctly" do
+      expected = [ 83, 67, 103, 102, 0, 0, 0, 1, 0, 1, 3, 111, 117, 116, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 6, 98, 117, 102, 110, 117, 109, 0, 0, 0, 3, 7, 67, 111, 110, 116, 114, 111, 108, 1, 0, 0, 0, 1, 0, 0, 1, 10, 87, 104, 105, 116, 101, 78, 111, 105, 115, 101, 2, 0, 0, 0, 1, 0, 0, 2, 7, 68, 105, 115, 107, 79, 117, 116, 2, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0 ]
+      @sdef.encode.should == expected.pack('C*')
+    end
+  end
+
+  describe DiskOut, 'two channel' do
+    before do
+      @sdef  = SynthDef.new :out do |bufnum|
+        @out = DiskOut.ar bufnum, [WhiteNoise.ar, WhiteNoise.ar]
+      end
+      @sdef2  = SynthDef.new :out do |bufnum|
+        @out2 = DiskOut.ar bufnum, WhiteNoise.ar, WhiteNoise.ar
+      end
+    end
+
+    it "should output zero" do
+      @out.should == 0.0
+    end
+
+    it "should encode the same" do
+      @sdef.encode.should == @sdef2.encode
+    end
+
+    it "should encode correctly" do
+      expected = [ 83, 67, 103, 102, 0, 0, 0, 1, 0, 1, 3, 111, 117, 116, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 6, 98, 117, 102, 110, 117, 109, 0, 0, 0, 4, 7, 67, 111, 110, 116, 114, 111, 108, 1, 0, 0, 0, 1, 0, 0, 1, 10, 87, 104, 105, 116, 101, 78, 111, 105, 115, 101, 2, 0, 0, 0, 1, 0, 0, 2, 10, 87, 104, 105, 116, 101, 78, 111, 105, 115, 101, 2, 0, 0, 0, 1, 0, 0, 2, 7, 68, 105, 115, 107, 79, 117, 116, 2, 0, 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 2, 0, 0, 0, 0 ]
+      @sdef.encode.should == expected.pack('C*')
+    end
+  end
+
+  shared_examples_for 'DiskIn' do
+    before do
+      @sdef = SynthDef.new :in do
+        @proxies = @class.send :ar, @channels, *@inputs
+      end
+      @instance = @proxies.first.source
+    end
+
+    it "should output a DelegatorArray" do
+      @proxies.should be_a(DelegatorArray)
+    end
+
+    it "should have correct rate" do
+      @instance.rate.should == :audio
+    end
+
+    it "should return an array of output proxies" do
+      @proxies.should have(@channels).proxies
+      @proxies.each_with_index do |proxy, i|
+        proxy.source.should be_a(@class)
+        proxy.should be_a(OutputProxy)
+        proxy.output_index.should == i
+      end
+    end
+
+    it "should set inputs" do
+      @instance.inputs.should == @inputs
+    end
+    
+    it "should encode" do
+      @sdef.encode.should == @expected.pack('C*')
+    end
+  end
+
+  describe DiskIn, 'single channel' do
+    before do
+      @channels = 1
+      @inputs   = 1, 0
+      @class    = DiskIn
+      @expected = [ 83, 67, 103, 102, 0, 0, 0, 1, 0, 1, 2, 105, 110, 0, 2, 63, -128, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 6, 68, 105, 115, 107, 73, 110, 2, 0, 2, 0, 1, 0, 0, -1, -1, 0, 0, -1, -1, 0, 1, 2, 0, 0 ]
+    end
+    it_should_behave_like 'DiskIn'
+  end
+
+  describe DiskIn, 'two channels' do
+    before do
+      @channels = 2
+      @inputs   = 1, 0
+      @class    = DiskIn
+      @expected = [ 83, 67, 103, 102, 0, 0, 0, 1, 0, 1, 2, 105, 110, 0, 2, 63, -128, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 6, 68, 105, 115, 107, 73, 110, 2, 0, 2, 0, 2, 0, 0, -1, -1, 0, 0, -1, -1, 0, 1, 2, 2, 0, 0 ]
+    end
+    it_should_behave_like 'DiskIn'
+  end
+  
+  describe VDiskIn, 'single channel' do
+    before do
+      @channels = 1
+      @inputs   = 1, 2, 3, 4
+      @class    = VDiskIn
+      @expected = [ 83, 67, 103, 102, 0, 0, 0, 1, 0, 1, 2, 105, 110, 0, 4, 63, -128, 0, 0, 64, 0, 0, 0, 64, 64, 0, 0, 64, -128, 0, 0, 0, 0, 0, 0, 0, 1, 7, 86, 68, 105, 115, 107, 73, 110, 2, 0, 4, 0, 1, 0, 0, -1, -1, 0, 0, -1, -1, 0, 1, -1, -1, 0, 2, -1, -1, 0, 3, 2, 0, 0 ]
+    end
+    it_should_behave_like 'DiskIn'
+  end
+
+  describe VDiskIn, 'two channels' do
+    before do
+      @channels = 2
+      @inputs   = 1, 2, 3, 4
+      @class    = VDiskIn
+      @expected = [ 83, 67, 103, 102, 0, 0, 0, 1, 0, 1, 2, 105, 110, 0, 4, 63, -128, 0, 0, 64, 0, 0, 0, 64, 64, 0, 0, 64, -128, 0, 0, 0, 0, 0, 0, 0, 1, 7, 86, 68, 105, 115, 107, 73, 110, 2, 0, 4, 0, 2, 0, 0, -1, -1, 0, 0, -1, -1, 0, 1, -1, -1, 0, 2, -1, -1, 0, 3, 2, 2, 0, 0 ]
+    end
+    it_should_behave_like 'DiskIn'
+  end
+
+end

data/spec/env_gen_spec.rb

@@ -0,0 +1,23 @@
+require File.expand_path(File.dirname(__FILE__)) + "/helper"
+
+require "scruby/control_name"
+require "scruby/env"
+require "scruby/ugens/ugen"
+require "scruby/ugens/ugen_operations"
+require "scruby/ugens/env_gen"
+
+include Scruby
+include Ugens 
+
+describe EnvGen do
+  
+  it "should not instantiate with #new" do
+    lambda { EnvGen.new :audio, 1, 2 }.should raise_error
+  end
+  
+  it "should have correct inputs" do
+    envgen = EnvGen.kr Env.adsr
+    envgen.rate.should   == :control
+    envgen.inputs.should == [ 1, 1, 0, 1, 0, 0, 3, 2, -99, 1, 0.01, 5, -4, 0.5, 0.3, 5, -4, 0, 1, 5, -4 ].collect{ |i| i.to_f  }
+  end
+end

data/spec/env_spec.rb

@@ -0,0 +1,73 @@
+require File.expand_path(File.dirname(__FILE__)) + "/helper"
+
+require "scruby/env"
+require "scruby/control_name"
+require "scruby/ugens/ugen"
+require "scruby/ugens/ugen_operations"
+
+class ControlName; end
+
+include Scruby
+
+describe Env do  
+  it "Env.new [0,1,0], [0.5, 1]" do
+    env = Env.new [0,1,0], [0.5, 1]
+    env.times.should         == [0.5, 1]
+    env.levels.should        == [ 0, 1, 0 ]
+    env.shape_numbers.should == [1]
+    env.curve_values.should  == [0]
+  end
+  
+  it do
+    env = Env.new [0,1,0], [0.5, 1]
+    env.to_array.collect{ |i| i.to_f }.should == [ 0, 2, -99, -99, 1, 0.5, 1, 0, 0, 1, 1, 0 ].collect{ |i| i.to_f }
+  end
+
+  it do
+    Env.perc.should be_instance_of( Env )
+  end
+
+  it "#perc" do
+    perc = Env.perc
+    perc.to_array.collect{ |i| i.to_f }.should == [ 0, 2, -99, -99, 1, 0.01, 5, -4, 0, 1, 5, -4 ].collect{ |i| i.to_f }
+  end
+
+  it '#sine' do
+    env = Env.sine
+    env.to_array.collect{ |i| i.to_f }.should == [ 0, 2, -99, -99, 1, 0.5, 3, 0, 0, 0.5, 3, 0 ].collect{ |i| i.to_f }
+  end
+
+  it "#linen" do
+    env = Env.linen
+    env.to_array.collect{ |i| i.to_f }.should == [ 0, 3, -99, -99, 1, 0.01, 1, 0, 1, 1, 1, 0, 0, 1, 1, 0 ].collect{ |i| i.to_f }
+  end
+
+  it "#triangle" do
+    env = Env.triangle
+    env.to_array.collect{ |i| i.to_f }.should ==  [ 0, 2, -99, -99, 1, 0.5, 1, 0, 0, 0.5, 1, 0 ].collect{ |i| i.to_f }
+  end
+
+  it "#cutoff" do
+    env = Env.cutoff
+    env.to_array.collect{ |i| i.to_f }.should ==  [ 1, 1, 0, -99, 0, 0.1, 1, 0 ].collect{ |i| i.to_f }
+  end
+
+  it "#dadsr" do
+    env = Env.dadsr
+    env.to_array.collect{ |i| i.to_f }.should == [ 0, 4, 3, -99, 0, 0.1, 5, -4, 1, 0.01, 5, -4, 0.5, 0.3, 5, -4, 0, 1, 5, -4 ].collect{ |i| i.to_f }
+  end
+  
+  it "#dadsr" do
+    env = Env.adsr
+    env.to_array.collect{ |i| i.to_f }.should == [ 0, 3, 2, -99, 1, 0.01, 5, -4, 0.5, 0.3, 5, -4, 0, 1, 5, -4 ].collect{ |i| i.to_f }
+  end
+  
+  describe 'Overriding defaults' do
+    
+    it "#asr" do
+      Env.asr(2, 1, 2).to_array.should == [ 0, 2, 1, -99, 1, 2, 5, -4, 0, 2, 5, -4 ]
+    end
+    
+  end
+  
+end

data/spec/group_spec.rb

@@ -0,0 +1,71 @@
+require File.expand_path(File.dirname(__FILE__)) + "/helper"
+
+
+require "scruby/core_ext/typed_array" 
+require "scruby/node"
+require "scruby/group"
+require 'scruby/bus'
+
+require 'scruby/server'
+require File.join( File.expand_path(File.dirname(__FILE__)), "server")
+
+
+include Scruby
+class Bus; end # mock
+
+describe Group do  
+  before :all do
+  end
+  
+  before do
+    Node.reset!
+    Server.stub!(:all).and_return([@server])
+  end
+    
+  describe 'Server interaction' do
+    before :all do
+      @server = Server.new
+      @server.boot
+      @server.send "/dumpOSC", 3
+      sleep 0.05
+    end
+    
+    after :all do
+      @server.quit
+    end
+    
+    before do
+      @server.flush
+      @group = Group.new @server
+      @node  = Node.new @server
+    end
+    
+    describe 'position' do
+    end
+    
+    it "should send free all message" do
+      @group.free_all.should be_a(Group)
+      sleep 0.05
+      @server.output.should =~ %r{\[ "/g_freeAll", #{ @group.id } \]}
+    end
+    
+    it "should send deepFree message" do
+      @group.deep_free.should be_a(Group)
+      sleep 0.05
+      @server.output.should =~ %r{\[ "/g_deepFree", #{ @group.id } \]}
+    end
+    
+    it "should send dump tree message" do
+      @group.dump_tree.should be_a(Group)
+      sleep 0.05
+      @server.output.should =~ %r{\[ "/g_dumpTree", #{ @group.id }, 0 \]}
+      @group.dump_tree true
+      sleep 0.05
+      @server.output.should =~ %r{\[ "/g_dumpTree", #{ @group.id }, 1 \]}
+    end
+    
+    it "should send dump tree message with arg"
+    it "should query_tree"
+  end
+  
+end

data/spec/helper.rb

@@ -0,0 +1,20 @@
+require "rubygems" 
+require "rspec" 
+require 'arguments'
+require 'yaml'
+require 'ruby-osc'
+
+$:.unshift( File.dirname(__FILE__) + '/../lib' ) 
+
+require "scruby/core_ext/object"
+require "scruby/core_ext/array"
+require "scruby/core_ext/numeric"
+require "scruby/core_ext/fixnum"
+require "scruby/core_ext/proc"
+require "scruby/core_ext/string"
+require "scruby/core_ext/symbol"
+
+
+
+
+

data/spec/in_out_spec.rb

@@ -0,0 +1,127 @@
+require File.expand_path(File.dirname(__FILE__)) + "/helper"
+
+require "scruby/core_ext/delegator_array"
+require "scruby/control_name"
+require "scruby/env"
+require "scruby/ugens/ugen"
+require "scruby/ugens/ugen_operations"
+require "scruby/ugens/multi_out"
+require "scruby/ugens/in_out"
+
+include Scruby
+include Ugens
+
+class SinOsc < Ugen
+  #not interested in muladd
+  def self.ar freq = 440.0, phase = 0.0
+    new :audio, freq, phase
+  end
+end
+
+class MockUgen < Ugen
+  class << self; public :new; end
+end
+
+describe In do
+  before do
+    @sdef = mock( 'ugen', :children => [] )
+    Ugen.should_receive( :synthdef ).at_least( :once ).and_return( @sdef )
+
+    @proxy   = mock('output proxy' )
+    @proxies = (1..10).map{ @proxy }
+    OutputProxy.stub!(:new).and_return( @proxy )
+
+    @ar = In.ar 3
+  end
+
+  it "respond to #kr and #ar" do
+    In.should respond_to(:kr)
+    In.should respond_to(:ar)
+  end
+
+  it "should spec #ar" do    
+    @ar.should be_instance_of( DelegatorArray )
+    @ar.should have(1).proxy
+    @ar.first.should == @proxy
+  end
+
+  it "should have bus as input" do
+    @sdef.children.first.inputs.should == [3]
+  end
+
+  it "should have ten channels" do
+    In.ar(0, 10).should == @proxies
+  end
+
+  it "should describe passing arrays to initialize"
+
+end
+
+
+describe Out do
+  shared_examples_for 'Out' do
+    before do
+      @sdef = mock 'sdef', :children => [], :constants => [400, 0]
+      Ugen.should_receive( :synthdef ).at_least( :once ).and_return @sdef
+    end               
+
+    it "should accept one ugen" do
+      @ugen1 = MockUgen.new :audio
+      @class.kr( 1, @ugen1 ).should == 0.0
+      @sdef.children.should have(2).ugens
+
+      out = @sdef.children.last
+      out.rate.should     == :control
+      out.inputs.should   == [1, @ugen1]
+      out.channels.should == []
+    end
+
+    it "should accept several inputs from array" do
+      @ugen1 = MockUgen.new :audio
+      @ugen2 = MockUgen.new :audio
+      @ugen3 = MockUgen.new :audio
+
+      @class.kr 1, [@ugen1, @ugen2, @ugen3]
+      @sdef.children.should have(4).ugens
+
+      out = @sdef.children.last
+      out.inputs.should == [1, @ugen1, @ugen2, @ugen3]
+    end
+
+    it "should accept several inputs" do
+      @ugen1 = MockUgen.new :audio
+      @ugen2 = MockUgen.new :audio
+      @ugen3 = MockUgen.new :audio
+
+      @class.kr 1, @ugen1, @ugen2, @ugen3
+      @sdef.children.should have(4).ugens
+
+      out = @sdef.children.last
+      out.inputs.should == [1, @ugen1, @ugen2, @ugen3]
+    end    
+
+    it "should validate rate"
+    it "should substitute zero with silence"
+    it "should spec passing array on init"
+  end
+
+  describe Out do
+    before do
+      @class = Out
+    end
+    it_should_behave_like 'Out'
+  end
+
+  describe ReplaceOut do
+    before do
+      @class = Out
+    end
+    it_should_behave_like 'Out'
+  end
+end
+
+
+
+
+
+