mtk 0.0.1 → 0.0.2

data/spec/mtk/_constants/durations_spec.rb

@@ -0,0 +1,118 @@
+require 'spec_helper'
+
+describe MTK::Durations do
+
+  describe 'w' do
+    it 'is 4 beats' do
+      w.should == 4
+    end
+    it 'is available via a module property and via mixin' do
+      Durations::w.should == w
+    end
+  end
+
+  describe 'h' do
+    it 'is 2 beats' do
+      h.should == 2
+    end
+    it 'is available via a module property and via mixin' do
+      Durations::h.should == h
+    end
+  end
+
+  describe 'q' do
+    it 'is 1 beat' do
+      q.round.should == 1
+    end
+    it 'is available via a module property and via mixin' do
+      Durations::q.should == q
+    end
+  end
+
+  describe 'e' do
+    it 'is 1/2 of a beat' do
+      e.should == 1.0/2
+    end
+    it 'is available via a module property and via mixin' do
+      Durations::e.should == e
+    end
+  end
+
+  describe 's' do
+    it 'is 1/4 of a beat' do
+      s.should == 1.0/4
+    end
+    it 'is available via a module property and via mixin' do
+      Durations::s.should == s
+    end
+  end
+
+  describe 'r' do
+    it 'is 1/8 of a beat' do
+      r.should == 1.0/8
+    end
+    it 'is available via a module property and via mixin' do
+      Durations::r.should == r
+    end
+  end
+
+  describe 'x' do
+    it 'is 1/16 of a beat' do
+      x.should == 1.0/16
+    end
+    it 'is available via a module property and via mixin' do
+      Durations::x.should == x
+    end
+  end
+
+  describe "DURATIONS" do
+    it "contains all Durations pseudo-constants" do
+      Durations::DURATIONS.should =~ [w, h, q, e, s, r, x]
+    end
+
+    it "is immutable" do
+      lambda{ Durations::DURATIONS << :something }.should raise_error
+    end
+  end
+
+  describe "DURATION_NAMES" do
+    it "contains all Durations pseudo-constants names as strings" do
+      Durations::DURATION_NAMES.should =~ ['w', 'h', 'q', 'e', 's', 'r', 'x']
+    end
+
+    it "is immutable" do
+      lambda{ Durations::DURATION_NAMES << :something }.should raise_error
+    end
+  end
+
+  describe ".[]" do
+    it "looks up the constant by name" do
+      for duration in Durations::DURATION_NAMES
+        Durations[duration].should == Durations.send(duration)
+      end
+    end
+
+    it "supports a '.' suffix, which multiples the value by 1.5" do
+      for duration in Durations::DURATION_NAMES
+        Durations["#{duration}."].should == Durations.send(duration) * 1.5
+      end
+    end
+
+    it "supports a 't' suffix, which multiples the value by 2/3" do
+      for duration in Durations::DURATION_NAMES
+        Durations["#{duration}t"].should == Durations.send(duration) * 2/3.0
+      end
+    end
+
+    it "supports '.' and 't' suffixes in any combination" do
+      for duration in Durations::DURATION_NAMES
+        Durations["#{duration}.t"].should == Durations.send(duration) * 1.5 * 2/3.0
+        Durations["#{duration}t."].should == Durations.send(duration) * 1.5 * 2/3.0
+        Durations["#{duration}.."].should == Durations.send(duration) * 1.5 * 1.5
+        Durations["#{duration}..t.t."].should == Durations.send(duration) * 1.5**4 * (2/3.0)**2
+      end
+    end
+  end
+
+end
+

data/spec/mtk/{constants/dynamics_spec.rb → _constants/intensities_spec.rb}

@@ -1,13 +1,13 @@
 require 'spec_helper'
   
-describe MTK::Dynamics do
+describe MTK::Intensities do
 
   describe 'ppp' do
     it 'is equivalent to MIDI velocity 16' do
       (ppp * 127).round.should == 16
     end
     it 'is available via a module property and via mixin' do
-      Dynamics::ppp.should == ppp
+      Intensities::ppp.should == ppp
     end
   end
 
@@ -16,7 +16,7 @@ describe MTK::Dynamics do
       (pp * 127).round.should == 32
     end
     it 'is available via a module property and via mixin' do
-      Dynamics::pp.should == pp
+      Intensities::pp.should == pp
     end    
   end
 
@@ -25,7 +25,7 @@ describe MTK::Dynamics do
       (p * 127).round.should == 48
     end
     it 'is available via a module property and via mixin' do
-      Dynamics::p.should == p
+      Intensities::p.should == p
     end    
   end
 
@@ -34,7 +34,7 @@ describe MTK::Dynamics do
       (mp * 127).round.should == 64
     end
     it 'is available via a module property and via mixin' do
-      Dynamics::mp.should == mp
+      Intensities::mp.should == mp
     end    
   end
 
@@ -43,7 +43,7 @@ describe MTK::Dynamics do
       (mf * 127).round.should == 79
     end
     it 'is available via a module property and via mixin' do
-      Dynamics::mf.should == mf
+      Intensities::mf.should == mf
     end    
   end
 
@@ -52,7 +52,7 @@ describe MTK::Dynamics do
       (f * 127).round.should == 95
     end
     it 'is available via a module property and via mixin' do
-      Dynamics::f.should == f
+      Intensities::f.should == f
     end
     it "does not overwrite the PitchClass constant 'F'" do
       F.should be_a PitchClass
@@ -64,7 +64,7 @@ describe MTK::Dynamics do
       (ff * 127).round.should == 111
     end
     it 'is available via a module property and via mixin' do
-      Dynamics::ff.should == ff
+      Intensities::ff.should == ff
     end
   end
 
@@ -73,20 +73,51 @@ describe MTK::Dynamics do
       (fff * 127).round.should == 127
     end
     it 'is available via a module property and via mixin' do
-      Dynamics::fff.should == fff
+      Intensities::fff.should == fff
+    end
+  end
+
+  describe "INTENSITIES" do
+    it "contains all Intensities pseudo-constants" do
+      Intensities::INTENSITIES.should =~ [ppp, pp, p, mp, mf, f, ff, fff]
+    end
+
+    it "is immutable" do
+      lambda{ Intensities::INTENSITIES << :something }.should raise_error
+    end
+  end
+
+  describe "INTENSITY_NAMES" do
+    it "contains all Intensities pseudo-constants names as strings" do
+      Intensities::INTENSITY_NAMES.should =~ ['ppp', 'pp', 'p', 'mp', 'mf', 'f', 'ff', 'fff']
+    end
+
+    it "is immutable" do
+      lambda{ Intensities::INTENSITY_NAMES << :something }.should raise_error
     end
   end
 
   describe ".[]" do
     it "looks up the constant by name" do
-      Dynamics['ppp'].should == ppp
-      Dynamics['pp'].should == pp
-      Dynamics['p'].should == p
-      Dynamics['mp'].should == mp
-      Dynamics['mf'].should == mf
-      Dynamics['f'].should == f
-      Dynamics['ff'].should == ff
-      Dynamics['fff'].should == fff
+      for name in INTENSITY_NAMES
+        Intensities[name].should == Intensities.send(name)
+      end
+    end
+
+    it "adds 1.0/24 when the name ends with '+', except for 'fff+' which is 1.0 like 'fff'" do
+      for name in INTENSITY_NAMES
+        if name == 'fff'
+          Intensities["#{name}+"].should == 1.0
+        else
+          Intensities["#{name}+"].should == Intensities.send(name)+1.0/24
+        end
+      end
+    end
+
+    it "subtracts 1.0/24 when the name ends with '-'" do
+      for name in INTENSITY_NAMES
+        Intensities["#{name}-"].should == Intensities.send(name)-1.0/24
+      end
     end
   end
 

data/spec/mtk/{constants → _constants}/intervals_spec.rb

@@ -119,6 +119,27 @@ describe MTK::Intervals do
     end
   end
 
+
+  describe "INTERVALS" do
+    it "contains all intervals constants/pseudo-constants" do
+      Intervals::INTERVALS.should =~ [P1, m2, M2, m3, M3, P4, TT, P5, m6, M6, m7, M7, P8]
+    end
+
+    it "is immutable" do
+      lambda{ Intervals::INTERVALS << :something }.should raise_error
+    end
+  end
+
+  describe "INTERVAL_NAMES" do
+    it "contains all intervals constants/pseudo-constant names" do
+      Intervals::INTERVAL_NAMES.should =~ ['P1', 'm2', 'M2', 'm3', 'M3', 'P4', 'TT', 'P5', 'm6', 'M6', 'm7', 'M7', 'P8']
+    end
+
+    it "is immutable" do
+      lambda{ Intervals::INTERVAL_NAMES << :something }.should raise_error
+    end
+  end
+
   describe ".[]" do
     it "looks up the constant by name" do
       Intervals['P1'].should == P1

data/spec/mtk/_constants/pitch_classes_spec.rb

@@ -0,0 +1,58 @@
+require 'spec_helper'
+
+describe MTK::PitchClasses do
+  let(:cases) {
+    [
+        [PitchClass['C'],  'C',   0],
+        [PitchClass['Db'], 'Db',  1],
+        [PitchClass['D'],  'D',   2],
+        [PitchClass['Eb'], 'Eb',  3],
+        [PitchClass['E'],  'E',   4],
+        [PitchClass['F'],  'F',   5],
+        [PitchClass['Gb'], 'Gb',  6],
+        [PitchClass['G'],  'G',   7],
+        [PitchClass['Ab'], 'Ab',  8],
+        [PitchClass['A'],  'A',   9],
+        [PitchClass['Bb'], 'Bb', 10],
+        [PitchClass['B'],  'B',  11],
+    ]
+  }
+
+  it "defines constants for the 12 pitch classes in the twelve-tone octave" do
+    cases.length.should == 12
+    cases.each do |const, name, int_value|
+      const.name.should == name
+      const.to_i.should == int_value
+    end
+  end
+
+  describe "PITCH_CLASSES" do
+    it "contains the 12 pitch class constants" do
+      PitchClasses::PITCH_CLASSES.length.should == 12
+      PitchClasses::PITCH_CLASSES.should == cases.map{ |const,_,__| const }
+    end
+
+    it "is immutable" do
+      lambda{ PitchClasses::PITCH_CLASSES << :something }.should raise_error
+    end
+  end
+
+  describe "PITCH_CLASS_NAMES" do
+    it "contains the names of the 12 pitch class constants" do
+      PitchClasses::PITCH_CLASS_NAMES.length.should == 12
+      PitchClasses::PITCH_CLASS_NAMES.should == cases.map{ |_,name,__| name }
+    end
+
+    it "is immutable" do
+      lambda{ PitchClasses::PITCH_CLASS_NAMES << :something }.should raise_error
+    end
+  end
+
+  describe ".[]" do
+    it "acts like PitchClas.[]" do
+      for name in PitchClasses::PITCH_CLASS_NAMES
+        PitchClasses[name].should == PitchClass[name]
+      end
+    end
+  end
+end

data/spec/mtk/_constants/pitches_spec.rb

@@ -0,0 +1,52 @@
+require 'spec_helper'
+
+describe MTK::Pitches do
+
+  it "defines constants for the 128 notes in MIDI" do
+    Pitches.constants.length.should == 130 # there's also the PITCHES and PITCH_NAMES constants
+    Pitches::C_1.should == Pitch.from_s('C-1')
+    Pitches::D0.should == Pitch.from_s('D0')
+    Pitches::Eb1.should == Pitch.from_s('Eb1')
+    Pitches::G9.should == Pitch.from_s('g9')
+  end
+
+  describe "PITCHES" do
+    it "contains all 128 pitch constants" do
+      Pitches::PITCHES.length.should == 128
+      Pitches::PITCHES.should include Pitches::C_1
+      Pitches::PITCHES.should include Pitches::D0
+      Pitches::PITCHES.should include Pitches::Eb1
+      Pitches::PITCHES.should include Pitches::G9
+    end
+
+    it "is immutable" do
+      lambda{ Pitches::PITCHES << :something }.should raise_error
+    end
+  end
+
+  describe "PITCH_NAMES" do
+    it "contains all 128 pitch constants" do
+      Pitches::PITCH_NAMES.length.should == 128
+      Pitches::PITCH_NAMES.should include 'C_1'
+      Pitches::PITCH_NAMES.should include 'D0'
+      Pitches::PITCH_NAMES.should include 'Eb1'
+      Pitches::PITCH_NAMES.should include 'G9'
+    end
+
+    it "is immutable" do
+      lambda{ Pitches::PITCH_NAMES << :something }.should raise_error
+    end
+  end
+
+  describe ".[]" do
+    it "acts like Pitch.from_s for the names in PITCH_NAMES, and also treats '_' like '-'" do
+      for name in Pitches::PITCH_NAMES
+        Pitches[name].should == Pitch.from_s(name.sub('_','-')) # the constant names need to use underscores, but Pitch.from_s doesn't understand that
+        if name =~ /_/
+          Pitches[name.sub('_','-')].should == Pitch.from_s(name.sub('_','-')) # make sure '-' works too
+        end
+      end
+    end
+  end
+
+end

data/spec/mtk/event_spec.rb

@@ -24,6 +24,20 @@ describe MTK::Event do
     it "is a read-only attribute" do
       lambda{ event.duration = 0 }.should raise_error
     end
+
+    it "is always positive (absolute value of the duration used to construct the Event)" do
+      Event.new(intensity, -duration).duration.should == duration
+    end
+  end
+
+  describe "#rest?" do
+    it "is true when the duration used to create the Event was negative" do
+      Event.new(intensity, -duration).rest?.should be_true
+    end
+
+    it "is false when the duration used to create the Event was positive" do
+      event.rest?.should be_false
+    end
   end
 
   describe "from_hash" do
@@ -88,9 +102,14 @@ describe MTK::Event do
     it "converts beats to pulses, given pulses_per_beat" do
       Event.new(0,1).duration_in_pulses(60).should == 60
     end
+
     it "rounds to the nearest pulse" do
       Event.new(0,1.5).duration_in_pulses(59).should == 89
     end
+
+    it "is always positive (uses absolute value of the duration used to construct the Event)" do
+      Event.new(intensity, -1).duration_in_pulses(60).should == 60
+    end
   end
 
   describe "#==" do