scruby 0.2.7

data/spec/panner_spec.rb

@@ -0,0 +1,271 @@
+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/panner"
+
+include Scruby
+include Ugens
+
+class MockUgen < Ugen
+  class << self; public :new; end
+end
+
+describe 'Panner' do
+  shared_examples_for 'Panner' do
+    before do
+      @pan      = @class.send @method, *@params
+      @inputs ||= @params
+      @instance = @pan.first.source
+    end
+    
+    it "should output a DelegatorArray" do
+      @pan.should be_a(DelegatorArray)
+    end
+    
+    it "should have correct rate" do
+      @instance.rate.should == @rate
+    end
+
+    it "should return an array of output proxies" do
+      @pan.should be_a(Array)
+      @pan.should have(@channels).proxies
+      @pan.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 accept control rate inputs unless rate is audio"
+  end
+  
+  shared_examples_for 'Panner with control rate' do
+    before do
+      @method = :kr
+      @rate   = :control
+    end
+    it_should_behave_like 'Panner'
+  end
+  
+  shared_examples_for 'Panner with audio rate' do
+    before do
+      @method = :ar
+      @rate   = :audio
+    end
+    it_should_behave_like 'Panner'
+    
+    it "should just accept audio inputs if rate is audio" # do
+     #      lambda { @class.new( :audio, MockUgen.new(:control) ) }.should raise_error(ArgumentError)
+     #    end
+  end
+  
+  shared_examples_for 'Panner with array as input' do
+    it "should have n channels" do
+      @arrayed.should have(@ugens.size).proxies
+    end
+    
+    it "should have array as channel" do
+      @arrayed.each { |a| a.should have(@channels).proxies }
+    end
+    
+    it "should have the same source class" do
+      @arrayed.flatten.source.uniq.should have(@ugens.size).elements
+    end
+  end
+  
+  shared_examples_for  'Multi input panner' do
+    describe "two ugens as input" do
+      before do
+        @params[0] = @ugens = [@ugen] * 2
+        @arrayed   = @class.ar *@params
+      end
+      it_should_behave_like 'Panner with array as input'
+    end
+    
+    describe "four ugens as input" do
+      before do
+        @params[0] = @ugens = [@ugen] * 4
+        @arrayed   = @class.ar *@params
+        # p @arrayed.first.first.source.output_specs
+      end
+      it_should_behave_like 'Panner with array as input'
+    end
+  end
+  
+  describe Pan2 do
+    before do
+      @class    = Pan2
+      @ugen     = MockUgen.new :audio, 1, 2
+      @params   = @ugen, 0.5, 1.0
+      @channels = 2
+    end
+    it_should_behave_like 'Panner with audio rate'
+    it_should_behave_like 'Panner with control rate'
+    it_should_behave_like 'Multi input panner'
+    
+
+    it "should have keyword args" do
+      @class.ar( @ugen, :level => 2.0 ).first.source.inputs.should == [@ugen, 0.0, 2.0]
+    end
+  end
+
+  describe LinPan2 do
+    before do
+      @class    = LinPan2
+      @ugen     = MockUgen.new :audio, 1, 2
+      @params   = @ugen, 0.5, 1.0
+      @channels = 2
+    end
+    it_should_behave_like 'Panner with audio rate'
+    it_should_behave_like 'Panner with control rate'
+    it_should_behave_like 'Multi input panner'
+
+    it "should have keyword args" do
+      @class.ar( @ugen, :level => 2.0 ).first.source.inputs.should == [@ugen, 0.0, 2.0]
+    end
+  end
+
+  describe Pan4 do
+    before do
+      @class    = Pan4
+      @ugen     = MockUgen.new :audio, 1, 2
+      @params   = @ugen, 0.5, 0.5, 1.0
+      @channels = 4
+    end
+    it_should_behave_like 'Panner with audio rate'
+    it_should_behave_like 'Panner with control rate'
+    it_should_behave_like 'Multi input panner'    
+
+    it "should have keyword args" do
+      @class.ar( @ugen, :level => 2.0 ).first.source.inputs.should == [@ugen, 0.0, 0.0, 2.0]
+    end
+  end
+
+  describe Balance2 do
+    before do
+      @class    = Balance2
+      @ugen     = MockUgen.new :audio, 1, 2
+      @ugen2    = MockUgen.new :audio, 2, 4
+      @params   = @ugen, @ugen2, 0.5, 1.0
+      @channels = 2
+    end
+    it_should_behave_like 'Panner with audio rate'
+    it_should_behave_like 'Panner with control rate'
+    it_should_behave_like 'Multi input panner'
+
+    it "should have keyword args" do
+      @class.ar( @ugen, @ugen2 , :level => 2.0 ).first.source.inputs.should == [@ugen, @ugen2 , 0.0, 2.0]
+    end
+  end
+
+  describe Rotate2 do
+    before do
+      @class    = Rotate2
+      @ugen     = MockUgen.new :audio, 1, 2
+      @ugen2    = MockUgen.new :audio, 2, 4
+      @params   = @ugen, @ugen2, 0.5
+      @channels = 2
+    end
+    it_should_behave_like 'Panner with audio rate'
+    it_should_behave_like 'Panner with control rate'
+    it_should_behave_like 'Multi input panner'
+    
+    # it "should have keyword args" do
+    #   @class.ar( @ugen, @ugen2 , :level => 2.0 ).first.source.inputs.should == [@ugen, @ugen2 , 0.0, 2.0]
+    # end
+  end
+
+  describe PanB do
+    before do
+      @class    = PanB
+      @ugen     = MockUgen.new :audio, 1, 2
+      @params   = @ugen, 0.5, 0.5, 1.0
+      @channels = 4
+    end
+    it_should_behave_like 'Panner with audio rate'
+    it_should_behave_like 'Panner with control rate'
+    it_should_behave_like 'Multi input panner'
+    
+    # it "should have keyword args" do
+    #   @class.ar( @ugen, @ugen2 , :level => 2.0 ).first.source.inputs.should == [@ugen, @ugen2 , 0.0, 2.0]
+    # end
+  end
+
+  describe PanB2 do
+    before do
+      @class    = PanB2
+      @ugen     = MockUgen.new :audio, 1, 2
+      @params   = @ugen, 0.5, 1.0
+      @channels = 3
+    end
+    it_should_behave_like 'Panner with audio rate'
+    it_should_behave_like 'Panner with control rate'
+    it_should_behave_like 'Multi input panner'
+
+    # it "should have keyword args" do
+    #   @class.ar( @ugen, @ugen2 , :level => 2.0 ).first.source.inputs.should == [@ugen, @ugen2 , 0.0, 2.0]
+    # end
+  end
+
+  describe BiPanB2 do
+    before do
+      @class    = BiPanB2
+      @ugen2    = MockUgen.new(:audio, 2, 4)
+      @ugen     = MockUgen.new :audio, 1, 2
+      @params   = @ugen, @ugen2, 0.5, 0.5
+      @channels = 3
+    end
+    it_should_behave_like 'Panner with audio rate'
+    it_should_behave_like 'Panner with control rate'
+    it_should_behave_like 'Multi input panner'
+    
+    # it "should have keyword args" do
+    #   @class.ar( @ugen, @ugen2 , :level => 2.0 ).first.source.inputs.should == [@ugen, @ugen2 , 0.0, 2.0]
+    # end
+  end
+  
+  describe DecodeB2, 'five channels' do
+    before do
+      @class    = DecodeB2
+      @params   = 5, 0.5, 0.5, 0.5, 0.5
+      @inputs   = 0.5, 0.5, 0.5, 0.5
+      @channels = 5
+    end
+    it_should_behave_like 'Panner with audio rate'
+    it_should_behave_like 'Panner with control rate'
+    
+  end
+  
+  describe DecodeB2, 'seven channels' do
+    before do
+      @class    = DecodeB2
+      @params   = 7, 0.5, 0.5, 0.5, 0.5
+      @inputs   = 0.5, 0.5, 0.5, 0.5
+      @channels = 7
+    end
+    it_should_behave_like 'Panner with audio rate'
+    it_should_behave_like 'Panner with control rate'
+  end
+
+  describe PanAz, 'five channels' do
+    before do
+      @class    = PanAz
+      @ugen     = MockUgen.new(:audio, 1, 2)
+      @params   = 5, @ugen, 0.5, 0.5, 0.5, 0.5
+      @inputs   = @ugen, 0.5, 0.5, 0.5, 0.5
+      @channels = 5
+    end
+    it_should_behave_like 'Panner with audio rate'
+    it_should_behave_like 'Panner with control rate'
+  end
+end

data/spec/server.rb

@@ -0,0 +1,12 @@
+class Scruby::Server
+  attr_reader :output
+  def puts string
+    @output ||= ""
+    @output << string
+    string
+  end
+  
+  def flush
+    @output = ''
+  end
+end

data/spec/server_spec.rb

@@ -0,0 +1,198 @@
+require File.expand_path(File.dirname(__FILE__)) + "/helper"
+
+require 'arguments'
+require 'tempfile'
+require 'scruby/node'
+require 'scruby/core_ext/array'
+require 'scruby/core_ext/typed_array'
+require 'scruby/bus'
+require "scruby/server"
+
+include Scruby
+
+module Mocks
+  class Bus; end
+  class Buffer; end
+end
+
+Thread.abort_on_exception = true
+
+class Scruby::Server
+  attr_reader :output
+  
+  def puts string
+    @output ||= ""
+    @output << string
+    string
+  end
+  
+  def flush
+    @output = ''
+  end
+end
+
+class Scruby::Buffer
+  def == other
+    self.class == other.class
+  end
+end
+
+describe Message do
+  it "should encode array as Message Blob" do
+    m = Message.new "/b_allocRead", 1, "path", 1, -1, ["/b_query", 1]
+    m.encode.should == "/b_allocRead\000\000\000\000,isiib\000\000\000\000\000\001path\000\000\000\000\000\000\000\001\377\377\377\377\000\000\000\024/b_query\000\000\000\000,i\000\000\000\000\000\001"
+  end
+end
+
+describe Server do
+  
+  describe "booting" do
+    before do
+      @server = Server.new
+    end
+
+    after do
+      @server.quit
+    end
+
+    it "should not rise scynth not found error" do
+      lambda{ @server.boot }.should_not raise_error(Server::SCError)
+    end
+
+    it "should not reboot" do
+      @server.boot
+      Thread.should_not_receive(:new)
+      @server.boot
+    end
+    
+    it "should remove server from server list" do
+      @server.boot
+      @server.quit
+      Server.all.should be_empty
+    end
+
+    it "should raise scsynth not found error" do
+      lambda{ @server = Server.new(:path => '/not_scsynth'); @server.boot }.should raise_error(Server::SCError)
+    end
+
+    it "should add self to a list of servers" do
+      s = Server.new
+      Server.all.should include(s)
+    end
+  end
+
+  describe 'sending OSC' 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
+    end
+    
+    it "should send dump" do
+      @server.send "/dumpOSC", 1
+      sleep 0.1
+      @server.output.should =~ %r{/dumpOSC}
+    end
+    
+    it "should send synthdef" do
+      sdef = mock 'sdef', :encode => [ 83, 67, 103, 102, 0, 0, 0, 1, 0, 1, 4, 104, 111, 108, 97, 0, 2, 67, -36, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 6, 83, 105, 110, 79, 115, 99, 2, 0, 2, 0, 1, 0, 0, -1, -1, 0, 0, -1, -1, 0, 1, 2, 0, 0 ].pack('C*')
+      @server.send_synth_def sdef
+      sleep 0.1
+      @server.output.should =~ %r{\[ "#bundle", 1, \n\s*\[ "/d_recv", DATA\[56\], 0 \]\n\]}
+    end
+    
+    it "should send synthdef2" do
+      sdef = mock 'sdef', :encode => [83, 67, 103, 102, 0, 0, 0, 1, 0, 1, 3, 114, 101, 99, 0, 1, 0, 0, 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, 2, 73, 110, 2, 0, 1, 0, 2, 0, 0, 255, 255, 0, 0, 2, 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, 1, 0, 1, 0, 0].pack('C*')
+      @server.send_synth_def sdef
+      sleep 0.1
+      @server.output.should =~ %r{\[ "#bundle", 1, \n\s*\[ "/d_recv", DATA\[100\], 0 \]\n\]}
+    end
+  end
+  
+  shared_examples_for 'allocator' do
+    it "should allow less than @max_size elements" do
+      @server.__send__( :allocate, @kind, (1..@allowed_elements).map{ @class.new } )
+      @server.__send__(@kind).size.should == @max_size
+    end
+
+    it "should not allow more than @max_size elements" do
+      lambda { @server.__send__( :allocate, @kind, (1..@max_size+1).map{ @class.new } ) }.should raise_error(SCError)
+    end
+    
+    it "should try to allocate lowest nil slot" do
+      @server.__send__(@kind).concat([nil, nil, @class.new, nil, nil, nil, @class.new])
+      @server.__send__ :allocate, @kind, buffer = @class.new
+      @server.__send__(@kind).index(buffer).should == @index_start
+    end
+    
+    it "should allocate various elements in available contiguous indices" do
+      @server.__send__(@kind).concat([nil, nil, @class.new, nil, nil, nil, @class.new])
+      @server.__send__ :allocate, @kind, @class.new, @class.new, @class.new
+      elements = @server.__send__(@kind)[@max_size-@allowed_elements..-1].compact
+      elements.should have(5).elements
+    end
+    
+    it "should allocate by appending various elements" do
+      @server.__send__(@kind).concat([nil, nil, @class.new, nil, nil, nil, @class.new])
+      @server.__send__ :allocate, @kind, @class.new, @class.new, @class.new, @class.new
+      elements = @server.__send__(@kind)[@max_size-@allowed_elements..-1].compact
+      elements.should have(6).elements
+    end
+    
+    it "should not surpass the max buffer limit" do
+      @server.__send__( :allocate, @kind, (1..@allowed_elements-2).map{ |i| @class.new if i % 2 == 0 } )
+      lambda { @server.__send__ :allocate, @kind, @class.new, @class.new, @class.new }.should raise_error
+    end
+    
+    it "should allocate by appending" do
+      @server.__send__( :allocate, @kind, (1..@allowed_elements-3).map{ |i| @class.new if i % 2 == 0 } )
+      @server.__send__ :allocate, @kind, @class.new, @class.new, @class.new
+      @server.__send__(@kind).size.should == @max_size
+    end
+  end
+  
+  describe 'buffers allocation' do
+    before do
+      @server = Server.new
+      @kind   = :buffers
+      @class  = ::Mocks::Buffer
+      @allowed_elements = @max_size = 1024
+      @index_start = 0
+    end
+    it_should_behave_like 'allocator'
+  end
+  
+  describe 'control_buses allocation' do
+    before do
+      @server = Server.new
+      @kind   = :control_buses
+      @class  = ::Mocks::Bus
+      @allowed_elements = @max_size = 4096
+      @index_start = 0
+    end
+    it_should_behave_like 'allocator'
+  end
+  
+  describe 'audio_buses allocation' do
+    before do
+      @server = Server.new
+      @kind   = :audio_buses
+      @class  = ::Mocks::Bus
+      @allowed_elements = 112
+      @max_size = 128
+      @index_start = 16
+    end
+    it_should_behave_like 'allocator'
+  end
+  
+end 
+

data/spec/synth_spec.rb

@@ -0,0 +1,103 @@
+require File.expand_path(File.dirname(__FILE__)) + "/helper"
+
+
+require "scruby/core_ext/typed_array" 
+require "scruby/node"
+require "scruby/bus"
+require "scruby/group"
+require "scruby/synth"
+require "scruby/server"
+require File.join( File.expand_path(File.dirname(__FILE__)), "server")
+
+include Scruby
+
+describe Synth do
+
+  before :all do
+    Server.clear
+    @server = Server.new
+    @server.boot
+    @server.send "/dumpOSC", 3
+    sleep 0.05
+  end
+
+  after :all do
+    @server.quit
+    sleep 1
+  end
+
+  before do
+    @server.flush
+  end
+  
+  describe 'instantiation with node target' do
+    before do
+      Node.reset!
+      @target = Node.new( (0..3).map{ Server.new } )
+      @synth  = Synth.new :synth, {:attack => 10}, @target
+    end
+
+    it "should initialize" do
+      @synth.name.should    == 'synth'
+      @synth.servers.should == @target.servers
+    end
+
+    it "should initialize not passing servers and have default servers" do
+      s = Synth.new( 'synth' )
+      s.servers.should == Server.all
+    end
+  end
+
+  describe 'instantiaton messaging' do
+    it "should send /s_new message" do
+      synth = Synth.new :synth, :attack => 10
+      sleep 0.05
+      @server.output.should =~ %r{\[ "/s_new", "#{ synth.name }", #{ synth.id }, 0, 1, "attack", 10 \]}
+    end
+
+    it "should send set message and return self" do
+      synth = Synth.new :synth, :attack => 10
+      synth.set( :attack => 20 ).should be_a(Synth)
+      sleep 0.05
+      @server.output.should =~ %r{\[ "/n_set", #{ synth.id }, "attack", 20 \]}
+    end
+  end
+
+  describe 'Default Group' do
+    it "should send after message" do
+      synth = Synth.after nil, :synth, :attack => 10
+      synth.should be_a(Synth)
+      sleep 0.05
+      @server.output.should =~ %r{\[ "/s_new", "#{ synth.name }", #{ synth.id }, 3, 1, "attack", 10 \]}
+    end
+
+    it "should send before message" do
+      synth = Synth.before nil, :synth, :attack => 10
+      synth.should be_a(Synth)
+      sleep 0.05
+      @server.output.should =~ %r{\[ "/s_new", "#{ synth.name }", #{ synth.id }, 2, 1, "attack", 10 \]}
+    end
+
+    it "should send head message" do
+      synth = Synth.head nil, :synth, :attack => 10
+      synth.should be_a(Synth)
+      sleep 0.05
+      @server.output.should =~ %r{\[ "/s_new", "#{ synth.name }", #{ synth.id }, 0, 1, "attack", 10 \]}
+    end
+
+    it "should send tail message" do
+      synth = Synth.tail nil, :synth, :attack => 10
+      synth.should be_a(Synth)
+      sleep 0.05
+      @server.output.should =~ %r{\[ "/s_new", "#{ synth.name }", #{ synth.id }, 1, 1, "attack", 10 \]}
+    end
+
+    it "should send replace message" do
+      synth = Synth.replace nil, :synth, :attack => 10
+      synth.should be_a(Synth)
+      sleep 0.05
+      @server.output.should =~ %r{\[ "/s_new", "#{ synth.name }", #{ synth.id }, 4, 1, "attack", 10 \]}
+    end
+  end
+
+end