alf 0.12.2 → 0.13.0

data/spec/integration/shell/show/show_ff.cmd

@@ -1 +0,0 @@
-alf show parts --ff=%.6f

data/spec/integration/shell/show/show_ff.stdout

@@ -1,10 +0,0 @@
-+------+-------+--------+-----------+--------+
-| :pid | :name | :color | :weight   | :city  |
-+------+-------+--------+-----------+--------+
-| P1   | Nut   | Red    | 12.000000 | London |
-| P2   | Bolt  | Green  | 17.000000 | Paris  |
-| P3   | Screw | Blue   | 17.000000 | Oslo   |
-| P4   | Screw | Red    | 14.000000 | London |
-| P5   | Cam   | Blue   | 12.000000 | Paris  |
-| P6   | Cog   | Red    | 19.000000 | London |
-+------+-------+--------+-----------+--------+

data/spec/integration/shell/show/show_rash.cmd

@@ -1 +0,0 @@
-alf show suppliers --rash

data/spec/integration/shell/show/show_rash.stdout

@@ -1,5 +0,0 @@
-{:sid => "S1", :name => "Smith", :status => 20, :city => "London"}
-{:sid => "S2", :name => "Jones", :status => 10, :city => "Paris"}
-{:sid => "S3", :name => "Blake", :status => 30, :city => "Paris"}
-{:sid => "S4", :name => "Clark", :status => 20, :city => "London"}
-{:sid => "S5", :name => "Adams", :status => 30, :city => "Athens"}

data/spec/integration/shell/show/show_rash_pretty.cmd

@@ -1 +0,0 @@
-alf show suppliers --rash --pretty

data/spec/integration/shell/show/show_rash_pretty.stdout

@@ -1,30 +0,0 @@
-{
-  :sid => "S1",
-  :name => "Smith",
-  :status => 20,
-  :city => "London"
-}
-{
-  :sid => "S2",
-  :name => "Jones",
-  :status => 10,
-  :city => "Paris"
-}
-{
-  :sid => "S3",
-  :name => "Blake",
-  :status => 30,
-  :city => "Paris"
-}
-{
-  :sid => "S4",
-  :name => "Clark",
-  :status => 20,
-  :city => "London"
-}
-{
-  :sid => "S5",
-  :name => "Adams",
-  :status => 30,
-  :city => "Athens"
-}

data/spec/integration/shell/show/show_yaml.cmd

@@ -1 +0,0 @@
-alf show suppliers --yaml

data/spec/integration/shell/show/show_yaml.stdout

@@ -1,22 +0,0 @@
----
-- :sid: S1
-  :name: Smith
-  :status: 20
-  :city: London
-- :sid: S2
-  :name: Jones
-  :status: 10
-  :city: Paris
-- :sid: S3
-  :name: Blake
-  :status: 30
-  :city: Paris
-- :sid: S4
-  :name: Clark
-  :status: 20
-  :city: London
-- :sid: S5
-  :name: Adams
-  :status: 30
-  :city: Athens
-

data/spec/integration/shell/sort/sort_0.cmd

@@ -1 +0,0 @@
-alf --text sort suppliers -- name

data/spec/integration/shell/sort/sort_0.stdout

@@ -1,9 +0,0 @@
-+------+-------+---------+--------+
-| :sid | :name | :status | :city  |
-+------+-------+---------+--------+
-| S5   | Adams |      30 | Athens |
-| S3   | Blake |      30 | Paris  |
-| S4   | Clark |      20 | London |
-| S2   | Jones |      10 | Paris  |
-| S1   | Smith |      20 | London |
-+------+-------+---------+--------+

data/spec/integration/shell/sort/sort_1.cmd

@@ -1 +0,0 @@
-alf --text sort suppliers -- name desc

data/spec/integration/shell/sort/sort_1.stdout

@@ -1,9 +0,0 @@
-+------+-------+---------+--------+
-| :sid | :name | :status | :city  |
-+------+-------+---------+--------+
-| S1   | Smith |      20 | London |
-| S2   | Jones |      10 | Paris  |
-| S4   | Clark |      20 | London |
-| S3   | Blake |      30 | Paris  |
-| S5   | Adams |      30 | Athens |
-+------+-------+---------+--------+

data/spec/integration/shell/sort/sort_2.cmd

@@ -1 +0,0 @@
-alf --text sort suppliers -- city name

data/spec/integration/shell/sort/sort_2.stdout

@@ -1,9 +0,0 @@
-+------+-------+---------+--------+
-| :sid | :name | :status | :city  |
-+------+-------+---------+--------+
-| S5   | Adams |      30 | Athens |
-| S4   | Clark |      20 | London |
-| S1   | Smith |      20 | London |
-| S3   | Blake |      30 | Paris  |
-| S2   | Jones |      10 | Paris  |
-+------+-------+---------+--------+

data/spec/integration/shell/sort/sort_3.cmd

@@ -1 +0,0 @@
-alf --text sort suppliers -- city desc name asc

data/spec/integration/shell/sort/sort_3.stdout

@@ -1,9 +0,0 @@
-+------+-------+---------+--------+
-| :sid | :name | :status | :city  |
-+------+-------+---------+--------+
-| S3   | Blake |      30 | Paris  |
-| S2   | Jones |      10 | Paris  |
-| S4   | Clark |      20 | London |
-| S1   | Smith |      20 | London |
-| S5   | Adams |      30 | Athens |
-+------+-------+---------+--------+

data/spec/integration/shell/summarize/summarize_0.cmd

@@ -1 +0,0 @@
-alf --text summarize supplies -- sid -- total_qty "sum{ qty }"

data/spec/integration/shell/summarize/summarize_0.stdout

@@ -1,8 +0,0 @@
-+------+------------+
-| :sid | :total_qty |
-+------+------------+
-| S1   |       1300 |
-| S2   |        700 |
-| S3   |        200 |
-| S4   |        900 |
-+------+------------+

data/spec/integration/shell/ungroup/ungroup_0.cmd

@@ -1 +0,0 @@
-alf --text ungroup group -- supplying

data/spec/integration/shell/ungroup/ungroup_0.stdout

@@ -1,16 +0,0 @@
-+------+------+------+
-| :sid | :pid | :qty |
-+------+------+------+
-| S1   | P1   |  300 |
-| S1   | P2   |  200 |
-| S1   | P3   |  400 |
-| S1   | P4   |  200 |
-| S1   | P5   |  100 |
-| S1   | P6   |  100 |
-| S2   | P1   |  300 |
-| S2   | P2   |  400 |
-| S3   | P2   |  200 |
-| S4   | P2   |  200 |
-| S4   | P4   |  300 |
-| S4   | P5   |  400 |
-+------+------+------+

data/spec/integration/shell/union/union_0.cmd

@@ -1 +0,0 @@
-alf --text union             suppliers suppliers

data/spec/integration/shell/union/union_0.stdout

@@ -1,9 +0,0 @@
-+------+-------+---------+--------+
-| :sid | :name | :status | :city  |
-+------+-------+---------+--------+
-| S1   | Smith |      20 | London |
-| S2   | Jones |      10 | Paris  |
-| S3   | Blake |      30 | Paris  |
-| S4   | Clark |      20 | London |
-| S5   | Adams |      30 | Athens |
-+------+-------+---------+--------+

data/spec/integration/shell/unwrap/unwrap_0.cmd

@@ -1 +0,0 @@
-alf --text unwrap            suppliers -- loc_and_status

data/spec/integration/shell/unwrap/unwrap_0.stdout

@@ -1,9 +0,0 @@
-+------+-------+---------+--------+
-| :sid | :name | :status | :city  |
-+------+-------+---------+--------+
-| S1   | Smith |      20 | London |
-| S2   | Jones |      10 | Paris  |
-| S3   | Blake |      30 | Paris  |
-| S4   | Clark |      20 | London |
-| S5   | Adams |      30 | Athens |
-+------+-------+---------+--------+

data/spec/integration/shell/wrap/wrap_0.cmd

@@ -1 +0,0 @@
-alf --text wrap suppliers -- city status -- loc_and_status

data/spec/integration/shell/wrap/wrap_0.stdout

@@ -1,9 +0,0 @@
-+------+-------+--------------------------------+
-| :sid | :name | :loc_and_status                |
-+------+-------+--------------------------------+
-| S1   | Smith | {:city=>"London", :status=>20} |
-| S2   | Jones | {:city=>"Paris", :status=>10}  |
-| S3   | Blake | {:city=>"Paris", :status=>30}  |
-| S4   | Clark | {:city=>"London", :status=>20} |
-| S5   | Adams | {:city=>"Athens", :status=>30} |
-+------+-------+--------------------------------+

data/spec/integration/test_alf.rb

@@ -1,34 +0,0 @@
-require 'spec_helper'
-describe Alf do
-  
-  let(:lispy){ Alf.lispy(Alf::Environment.examples) } 
-  
-  let(:expected){[
-    {:status => 20, :sid=>"S1", :name=>"Smith", :city=>"London"},
-    {:status => 20, :sid=>"S4", :name=>"Clark", :city=>"London"}
-  ]}
-  
-  it "should have a version number" do
-    Alf.const_defined?(:VERSION).should be_true
-  end
-  
-  it "should allow running a commandline like command" do
-    op = lispy.run(['restrict', 'suppliers', '--', "city == 'London'"])
-    op.to_a.should == expected
-  end
-  
-  it "should allow compiling lispy expressions" do
-    lispy.compile {
-      (restrict :suppliers, lambda{ city == 'London'})
-    }.to_a.should == expected
-  end
-  
-  it "should allow evaluating lispy expressions" do
-    rel = lispy.evaluate {
-      (restrict :suppliers, lambda{ city == 'London'})
-    }
-    rel.should be_a(Alf::Relation)
-    rel.should eq(Alf::Relation.coerce(expected))
-  end
-  
-end

data/spec/integration/test_examples.rb

@@ -1,15 +0,0 @@
-require 'spec_helper'
-Dir["#{File.expand_path('../../../examples', __FILE__)}/**/*.alf"].each do |file|
-
-  describe "Alf example: #{file}" do
-    let(:example_path){ file }
-    let(:example_dir) { File.dirname(file) }
-    let(:example_env) { Alf::Environment.folder(example_dir) }
-
-    it "should run without error" do
-      Alf.lispy(example_env).compile(File.read(example_path), example_path).to_rel
-    end
-
-  end
-
-end

data/spec/integration/test_lispy.rb

@@ -1,31 +0,0 @@
-require 'spec_helper'
-module Alf
-  describe Lispy do
-    include Lispy
-
-    let(:input){[
-      {:tested => 1,  :other => "b"},
-      {:tested => 30, :other => "a"},
-    ]}
-
-    let(:expected){[
-      {:tested => 30, :other => "a", :upcase => "A"},
-    ]}
-
-    it "should allow chaining operators 'ala' LISP" do
-      operator = (extend \
-                   (restrict input, lambda{ tested > 10 }),
-                   :upcase => lambda{ other.upcase })
-      operator.to_a.should == expected
-    end
-
-    it "should allow building aggregators" do
-      sum{ qty }.should be_a(Aggregator::Sum)
-    end
-
-    it "should have stddev aggregator" do
-      stddev{ qty }.should be_a(Aggregator::Stddev)
-    end
-
-  end
-end

data/spec/integration/test_semantics.rb

@@ -1,40 +0,0 @@
-require 'spec_helper'
-describe "Alf's semantics tests" do
-  
-  module Helpers
-    
-    def rel_equal(x, y)
-      x = Alf::Environment.examples.dataset(x) if x.is_a?(Symbol)
-      y = Alf::Environment.examples.dataset(y) if y.is_a?(Symbol)
-      x.to_rel == y.to_rel
-    end
-    
-    def specify(message, x)
-      raise message unless x
-    end
-    
-  end
-  
-  shared_examples_for "A semantics spec file" do
-    
-    let(:lispy){
-      dir = File.expand_path('../__database__', __FILE__)
-      lispy = Alf.lispy(Alf::Environment.folder(dir))
-      lispy.ruby_extend(Helpers)
-    }
-
-    it "should work when executed with a Alf" do
-      lispy.compile(File.read(subject))
-    end
-    
-  end # An example
-  
-  
-  Dir["#{File.expand_path('../semantics', __FILE__)}/**/*.alf"].each do |file|
-    describe file do
-      subject{ file }
-      it_should_behave_like "A semantics spec file"
-    end
-  end
-  
-end

data/spec/integration/test_shell.rb

@@ -1,47 +0,0 @@
-require 'spec_helper'
-describe "Alf's alf command / " do
-
-  Dir[_('shell/**/*.cmd', __FILE__)].each do |input|
-    cmd = wlang(File.readlines(input).first, binding)
-    specify{ cmd.should =~ /^alf / }
-  
-    describe "#{File.basename(input)}: #{cmd}" do
-      let(:argv)     { Quickl.parse_commandline_args(cmd)[1..-1] }
-      let(:stdout)   { File.join(File.dirname(input), "#{File.basename(input, ".cmd")}.stdout") }
-      let(:stderr)   { File.join(File.dirname(input), "#{File.basename(input, ".cmd")}.stderr") }
-      let(:stdout_expected) { File.exists?(stdout) ? wlang(File.read(stdout), binding) : "" }
-      let(:stderr_expected) { File.exists?(stderr) ? wlang(File.read(stderr), binding) : "" }
-
-      before{ 
-        $oldstdout = $stdout 
-        $oldstderr = $stderr
-        $stdout = StringIO.new
-        $stderr = StringIO.new
-      }
-      after { 
-        $stdout = $oldstdout
-        $stderr = $oldstderr
-        $oldstdout = nil 
-        $oldstderr = nil 
-      }
-      
-      specify{
-        begin 
-          dir = File.expand_path('../__database__', __FILE__)
-          main = Alf::Shell::Main.new
-          main.environment = Alf::Environment.folder(dir)
-          main.run(argv, __FILE__)
-        rescue => ex
-          begin
-            Alf::Shell::Main.handle_error(ex, main)
-          rescue SystemExit
-            $stdout << "SystemExit" << "\n"
-          end
-        end
-        $stdout.string.should(eq(stdout_expected)) unless RUBY_VERSION < "1.9"
-        $stderr.string.should(eq(stderr_expected)) unless RUBY_VERSION < "1.9"
-      }
-    end
-  end
-    
-end

data/spec/regression/alf_file/__FILE__.alf

@@ -1,2 +0,0 @@
-suppliers = Reader.reader File.join(File.dirname(__FILE__), "suppliers.rash")
-(project suppliers, [:city])

data/spec/regression/alf_file/suppliers.rash

@@ -1,5 +0,0 @@
-{:sid => 'S1', :name => 'Smith', :status => 20, :city => 'London'}
-{:sid => 'S2', :name => 'Jones', :status => 10, :city => 'Paris'}
-{:sid => 'S3', :name => 'Blake', :status => 30, :city => 'Paris'}
-{:sid => 'S4', :name => 'Clark', :status => 20, :city => 'London'}
-{:sid => 'S5', :name => 'Adams', :status => 30, :city => 'Athens'}

data/spec/regression/alf_file/test___FILE__.rb

@@ -1,17 +0,0 @@
-require 'spec_helper'
-module Alf
-  describe Reader::AlfFile do
-    subject{ 
-      Reader::AlfFile.new(File.expand_path("../__FILE__.alf", __FILE__), Environment.examples)
-    }
-    
-    specify {
-      subject.to_rel.should == Relation[
-        {:city => "London"},
-        {:city => "Paris"},
-        {:city => "Athens"}
-      ]
-    }
-    
-  end
-end

data/spec/regression/heading/test_heading_with_date.rb

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

data/spec/regression/lispy/test_compile.rb

@@ -1,14 +0,0 @@
-require 'spec_helper'
-describe "Lispy.compile" do
-  
-  it "should use a clean binding" do
-    p = Alf::Lispy.compile("lambda{ path }", "a path")
-    lambda{ p.call }.should raise_error(NameError)
-  end
-  
-  it "should resolve __FILE__ correctly" do
-    p = Alf::Lispy.compile("__FILE__", "a path")
-    p.should == "a path"
-  end
-  
-end