alf 0.12.2 → 0.13.0

data/spec/regression/logs/apache_combined.log

@@ -1,5 +0,0 @@
-125.76.230.10 - - [02/Sep/2009:03:33:46 +0200] "GET /cart/install.txt HTTP/1.1" 404 214 "-" "Toata dragostea mea pentru diavola"
-125.76.230.10 - - [02/Sep/2009:03:33:47 +0200] "GET /store/install.txt HTTP/1.1" 404 215 "-" "Toata dragostea mea pentru diavola"
-10.0.1.1 - - [02/Sep/2009:05:08:33 +0200] "GET / HTTP/1.1" 200 30 "-" "Mozilla/5.0 (Macintosh; U; Intel Mac OS X 10_5_8; en-us) AppleWebKit/531.9 (KHTML, like Gecko) Version/4.0.3 Safari/531.9"
-10.0.1.1 - - [02/Sep/2009:06:41:51 +0200] "GET / HTTP/1.1" 200 30 "-" "Mozilla/5.0 (Macintosh; U; Intel Mac OS X 10_5_8; en-us) AppleWebKit/531.9 (KHTML, like Gecko) Version/4.0.3 Safari/531.9"
-69.41.0.45 - - [02/Sep/2009:12:02:40 +0200] "GET //phpMyAdmin/ HTTP/1.1" 404 209 "-" "Mozilla/4.0 (compatible; MSIE 6.0; Windows 98)"

data/spec/regression/logs/test_path_attribute.rb

@@ -1,25 +0,0 @@
-require 'spec_helper'
-describe "path attributes in log" do
-  
-  let(:env){ Alf::Environment.folder(File.dirname(__FILE__)) }
-    
-  subject{ 
-    Alf.lispy(env).evaluate <<-EOF
-      (restrict :apache_combined, lambda{ path =~ /install.txt/ })
-    EOF
-  }
-  
-  specify {
-    subject.should be_a(Alf::Relation)
-    projected = subject.project([:path])
-    projected.should == Alf::Relation[
-      {:path => "/cart/install.txt" }, 
-      {:path => "/store/install.txt"}
-    ]
-    projected.extend(:short_path => lambda{ path[0..1] }).should == Alf::Relation[
-      {:path => "/cart/install.txt",  :short_path => "/c" }, 
-      {:path => "/store/install.txt", :short_path => "/s"}
-    ]
-  }
-  
-end

data/spec/regression/relation/test_relation_allbut_all.rb

@@ -1,14 +0,0 @@
-require 'spec_helper'
-require 'date'
-module Alf
-  describe Relation, "allbut" do
-  
-    describe "when all attributes are projected away" do
-      subject{ 
-        Relation[{:sid => "P1"}].allbut([:sid]) 
-      }
-      it{ should eql(Relation[{}]) }
-    end
-    
-  end
-end

data/spec/regression/relation/test_relation_with_date.rb

@@ -1,12 +0,0 @@
-require 'spec_helper'
-require 'date'
-module Alf
-  describe Relation do
-  
-    describe "when attributes on Date domain" do
-      subject{ Relation[{:date => Date.today}] }
-      it_should_behave_like "A value"
-    end
-    
-  end
-end

data/spec/regression/restrict/test_restrict_with_keywords.rb

@@ -1,17 +0,0 @@
-require 'spec_helper' 
-module Alf
-  describe "(restrict xxx, :keyword => ...)" do
-    
-    it "should support using a keyword on Relation" do
-      rel = Relation[{:when => "now"}]
-      rel.restrict(:when => "now").should eq(rel)
-    end
-    
-    it "should support using a keyword on Lispy" do
-      Alf.lispy(Environment.examples).evaluate do
-        (restrict (extend :suppliers, {:when => lambda{"notnow"}}), {:when => "now"})
-      end.should eq(Relation::DUM)
-    end
-    
-  end
-end

data/spec/shared/a_valid_type_implementation.rb

@@ -1,47 +0,0 @@
-shared_examples_for "A valid type implementation" do
-
-  it 'should have exemplars available' do
-    type.exemplars.should_not be_empty
-    type.exemplars.each do |value|
-      (type === value).should be_true
-    end
-  end
-
-  it 'should define dupable values' do
-    type.exemplars.each do |ex|
-      ex.dup.should eq(ex)
-      ex.dup.object_id.should_not eq(ex.object_id)
-    end
-  end
-
-  it 'should define values that appear same in arrays' do
-    type.exemplars.each do |ex|
-      [ex, ex.dup, ex].uniq.should eq([ex])
-    end
-  end
-
-  it 'should define values with correct hash codes' do
-    type.exemplars.each do |ex|
-      ex.dup.hash.should eq(ex.hash)
-    end
-  end
-
-  it 'should define values that can be used as Hash keys' do
-    type.exemplars.each do |ex|
-      {ex => 1, ex.dup => 2}.size.should eq(1)
-    end
-  end
-
-  it 'should define values respecting the :to_ruby_literal spec' do
-    type.exemplars.each do |ex|
-      Kernel.eval(ex.to_ruby_literal).should eq(ex)
-    end
-  end
-
-  it 'should define values respecting the :inspect spec' do
-    type.exemplars.each do |ex|
-      Kernel.eval(ex.inspect).should eq(ex)
-    end
-  end
-
-end

data/spec/shared/a_value.rb

@@ -1,12 +0,0 @@
-shared_examples_for "A value" do
-  
-  it "should have a inspect/class.parse that lead to equal values" do
-    Kernel.eval(subject.inspect).should eq(subject)
-  end
-  
-  it "should act a valid Hash keys" do
-     dup = Kernel.eval(subject.inspect)
-     {subject => true, dup => false}.size.should == 1
-  end
-  
-end

data/spec/shared/an_operator_class.rb

@@ -1,36 +0,0 @@
-shared_examples_for "An operator class" do
-
-  it "should not have public _each and _prepare methods" do
-    operator_class.public_method_defined?(:_each).should be_false
-    operator_class.public_method_defined?(:_prepare).should be_false
-  end
-
-  it "should have a public rubycase_name method" do
-    operator_class.should respond_to(:rubycase_name)
-  end
-  
-  it "should have a public each method" do
-    operator_class.public_method_defined?(:each).should be_true
-  end
-  
-  it "should have a unary? class method" do
-    operator_class.should respond_to(:unary?)
-  end
-
-  it "should have a binary? class method" do
-    operator_class.should respond_to(:binary?)
-  end
-  
-  it "should have a nullary? class method" do
-    operator_class.should respond_to(:nullary?)
-  end
-  
-  it "should implement unary? and binary? accurately" do
-    op = operator_class
-    (op.nullary? || op.unary? || op.binary?).should be_true
-    (op.nullary? && op.unary?).should be_false
-    (op.nullary? && op.binary?).should be_false
-    (op.unary? && op.binary?).should be_false
-  end
-
-end

data/spec/unit/alf-core/aggregator/test_avg.rb

@@ -1,22 +0,0 @@
-require 'spec_helper'
-module Alf
-  class Aggregator
-    describe Avg do
-
-      let(:rel){[
-        {:qty => 10}, 
-        {:qty => 1}
-      ]}
-
-      it 'should work when used standalone' do
-        Avg.new{ qty }.aggregate(rel).should eq(5.5)
-      end
-
-      it 'should install factory methods' do
-        Aggregator.avg{ qty }.should be_a(Avg)
-        Aggregator.avg{ qty }.aggregate(rel).should eq(5.5)
-      end
-
-    end
-  end
-end 

data/spec/unit/alf-core/aggregator/test_collect.rb

@@ -1,25 +0,0 @@
-require 'spec_helper'
-module Alf
-  class Aggregator
-    describe Collect do
-
-      let(:rel){[
-        {:qty => 10}, 
-        {:qty => 20},
-        {:qty => 30},
-        {:qty => 40}
-      ]}
-
-      it 'should work when used standalone' do
-        Collect.new{ qty }.aggregate([]).should eq([])
-        Collect.new{ qty }.aggregate(rel).should eq([10,20,30,40])
-      end
-
-      it 'should install factory methods' do
-        Aggregator.collect{ qty }.should be_a(Collect)
-        Aggregator.collect{ qty }.aggregate(rel).should eq([10,20,30,40])
-      end
-
-    end
-  end
-end 

data/spec/unit/alf-core/aggregator/test_concat.rb

@@ -1,31 +0,0 @@
-require 'spec_helper'
-module Alf
-  class Aggregator
-    describe Concat do
-
-      let(:rel){[
-        {:qty => 10}, 
-        {:qty => 20},
-        {:qty => 30},
-        {:qty => 40}
-      ]}
-
-      it 'should work when used standalone' do
-        Concat.new{ qty }.aggregate([]).should eq("")
-        Concat.new{ qty }.aggregate(rel).should eq("10203040")
-      end
-
-      it 'should install factory methods' do
-        Aggregator.concat{ qty }.should be_a(Concat)
-        Aggregator.concat{ qty }.aggregate(rel).should eq("10203040")
-      end
-
-      it 'should work with options' do
-        options = {:before => "bef", :after => "aft", :between => " bet "}
-        expected = "bef10 bet 20 bet 30 bet 40aft"
-        Aggregator.concat(options){ qty }.aggregate(rel).should eq(expected)
-      end
-
-    end
-  end
-end 

data/spec/unit/alf-core/aggregator/test_count.rb

@@ -1,17 +0,0 @@
-require 'spec_helper'
-module Alf
-  class Aggregator
-    describe Count do
-
-      it 'should work when used standalone' do
-        Count.new.aggregate([]).should eq(0)
-        Count.new.aggregate([{}]).should eq(1)
-      end
-
-      it 'should install factory methods' do
-        Aggregator.count.should be_a(Count)
-      end
-
-    end
-  end
-end 

data/spec/unit/alf-core/aggregator/test_max.rb

@@ -1,23 +0,0 @@
-require 'spec_helper'
-module Alf
-  class Aggregator
-    describe Max do
-
-      let(:rel){[
-        {:qty => 10}, 
-        {:qty => 0}
-      ]}
-
-      it 'should work when used standalone' do
-        Max.new{ qty }.aggregate([]).should eq(nil)
-        Max.new{ qty }.aggregate(rel).should eq(10)
-      end
-
-      it 'should install factory methods' do
-        Aggregator.max{ qty }.should be_a(Max)
-        Aggregator.max{ qty }.aggregate(rel).should eq(10)
-      end
-
-    end
-  end
-end 

data/spec/unit/alf-core/aggregator/test_min.rb

@@ -1,23 +0,0 @@
-require 'spec_helper'
-module Alf
-  class Aggregator
-    describe Min do
-
-      let(:rel){[
-        {:qty => 10}, 
-        {:qty => 0}
-      ]}
-
-      it 'should work when used standalone' do
-        Min.new{ qty }.aggregate([]).should eq(nil)
-        Min.new{ qty }.aggregate(rel).should eq(0)
-      end
-
-      it 'should install factory methods' do
-        Aggregator.min{ qty }.should be_a(Min)
-        Aggregator.min{ qty }.aggregate(rel).should eq(0)
-      end
-
-    end
-  end
-end 

data/spec/unit/alf-core/aggregator/test_stddev.rb

@@ -1,27 +0,0 @@
-require 'spec_helper'
-module Alf
-  class Aggregator
-    describe Stddev do
-
-      let(:rel){[
-        {:qty => 10}, 
-        {:qty => 20},
-        {:qty => 30},
-        {:qty => 40}
-      ]}
-      let(:expected) {
-        Math.sqrt(Variance.new{qty}.aggregate(rel))
-      }
-
-      it 'should work when used standalone' do
-        Stddev.new{ qty }.aggregate(rel).should eq(expected)
-      end
-
-      it 'should install factory methods' do
-        Aggregator.stddev{ qty }.should be_a(Stddev)
-        Aggregator.stddev{ qty }.aggregate(rel).should eq(expected)
-      end
-
-    end
-  end
-end 

data/spec/unit/alf-core/aggregator/test_sum.rb

@@ -1,23 +0,0 @@
-require 'spec_helper'
-module Alf
-  class Aggregator
-    describe Sum do
-
-      let(:rel){[
-        {:qty => 10}, 
-        {:qty => 20}
-      ]}
-
-      it 'should work when used standalone' do
-        Sum.new{ qty }.aggregate([]).should eq(0)
-        Sum.new{ qty }.aggregate(rel).should eq(30)
-      end
-
-      it 'should install factory methods' do
-        Aggregator.sum{ qty }.should be_a(Sum)
-        Aggregator.sum{ qty }.aggregate(rel).should eq(30)
-      end
-
-    end
-  end
-end 

data/spec/unit/alf-core/aggregator/test_variance.rb

@@ -1,29 +0,0 @@
-require 'spec_helper'
-module Alf
-  class Aggregator
-    describe Variance do
-
-      let(:rel){[
-        {:qty => 10}, 
-        {:qty => 20},
-        {:qty => 30},
-        {:qty => 40}
-      ]}
-      let(:expected) {
-        vals = rel.map{|t| t[:qty]}
-        mean = vals.inject(:+) / vals.size.to_f
-        vals.collect{|v| (v - mean)**2 }.inject(:+) / vals.size.to_f
-      }
-
-      it 'should work when used standalone' do
-        Variance.new{ qty }.aggregate(rel).should eq(expected)
-      end
-
-      it 'should install factory methods' do
-        Aggregator.variance{ qty }.should be_a(Variance)
-        Aggregator.variance{ qty }.aggregate(rel).should eq(expected)
-      end
-
-    end
-  end
-end 

data/spec/unit/alf-core/assumptions/test_file.rb

@@ -1,17 +0,0 @@
-require 'spec_helper' 
-describe "__FILE__" do
-
-  describe "when used with eval within same file" do
-    let(:src){ "__FILE__" }
-    subject{ Kernel.eval(src, binding, __FILE__) }
-    it { should == __FILE__ }
-  end
-  
-  describe "when used with eval from other file" do
-    let(:src){ "__FILE__" }
-    subject{ Kernel.eval(src, binding, "hello.rb") }
-    it { should == "hello.rb" }
-  end
-  
-  
-end

data/spec/unit/alf-core/assumptions/test_instance_eval.rb

@@ -1,15 +0,0 @@
-require 'spec_helper'
-describe :instance_eval do
-
-  let(:bar){ lambda{10} }
-  let(:foo) { Object.new }
-
-  if RUBY_VERSION <= "1.9"
-    subject{ foo.instance_eval(&bar) }
-    it { should == 10 }
-  else
-    subject{ foo.instance_exec(&bar) }
-    it { should == 10 }
-  end
-
-end