mondrian-olap 0.4.0-java

data/spec/rake_tasks.rb

@@ -0,0 +1,260 @@
+namespace :db do
+  task :require_spec_helper do
+    require File.expand_path("../spec_helper", __FILE__)
+  end
+
+  desc "Create test database tables"
+  task :create_tables => :require_spec_helper do
+    puts "==> Creating tables for test data"
+    ActiveRecord::Schema.define do
+
+      create_table :time, :force => true do |t|
+        t.datetime    :the_date
+        t.string      :the_day, :limit => 30
+        t.string      :the_month, :limit => 30
+        t.integer     :the_year
+        t.integer     :day_of_month
+        t.integer     :week_of_year
+        t.integer     :month_of_year
+        t.string      :quarter, :limit => 30
+      end
+
+      create_table :products, :force => true do |t|
+        t.integer     :product_class_id
+        t.string      :brand_name, :limit => 60
+        t.string      :product_name, :limit => 60
+      end
+
+      create_table :product_classes, :force => true do |t|
+        t.string      :product_subcategory, :limit => 30
+        t.string      :product_category, :limit => 30
+        t.string      :product_department, :limit => 30
+        t.string      :product_family, :limit => 30
+      end
+
+      create_table :customers, :force => true do |t|
+        t.string      :country, :limit => 30
+        t.string      :state_province, :limit => 30
+        t.string      :city, :limit => 30
+        t.string      :fname, :limit => 30
+        t.string      :lname, :limit => 30
+        t.string      :fullname, :limit => 60
+        t.string      :gender, :limit => 30
+      end
+
+      create_table :sales, :force => true, :id => false do |t|
+        t.integer     :product_id
+        t.integer     :time_id
+        t.integer     :customer_id
+        t.decimal     :store_sales, :precision => 10, :scale => 4
+        t.decimal     :store_cost, :precision => 10, :scale => 4
+        t.decimal     :unit_sales, :precision => 10, :scale => 4
+      end
+    end
+  end
+
+  task :setup_luciddb => :require_spec_helper do
+    # create link to mysql database to import tables
+    # see description at http://pub.eigenbase.org/wiki/LucidDbCreateForeignServer
+    if MONDRIAN_DRIVER == 'luciddb'
+      conn = ActiveRecord::Base.connection
+      conn.execute "drop schema mondrian_test_source cascade" rescue nil
+      conn.execute "drop server mondrian_test_source" rescue nil
+      conn.execute "create schema mondrian_test_source"
+      conn.execute <<-SQL
+        create server mondrian_test_source
+        foreign data wrapper sys_jdbc
+        options(
+            driver_class 'com.mysql.jdbc.Driver',
+            url 'jdbc:mysql://localhost/mondrian_test?characterEncoding=utf-8&useCursorFetch=true',
+            user_name 'mondrian_test',
+            password 'mondrian_test',
+            login_timeout '10',
+            fetch_size '1000',
+            validation_query 'select 1',
+            schema_name 'MONDRIAN_TEST',
+            table_types 'TABLE')
+      SQL
+      conn.execute "import foreign schema mondrian_test from server mondrian_test_source into mondrian_test_source"
+    end
+  end
+
+  task :define_models => :require_spec_helper do
+    unless MONDRIAN_DRIVER == 'luciddb'
+      class TimeDimension < ActiveRecord::Base
+        self.table_name = "time"
+        validates_presence_of :the_date
+        before_create do
+          self.the_day = the_date.strftime("%A")
+          self.the_month = the_date.strftime("%B")
+          self.the_year = the_date.strftime("%Y").to_i
+          self.day_of_month = the_date.strftime("%d").to_i
+          self.week_of_year = the_date.strftime("%W").to_i
+          self.month_of_year = the_date.strftime("%m").to_i
+          self.quarter = "Q#{(month_of_year-1)/3+1}"
+        end
+      end
+      class Product < ActiveRecord::Base
+        belongs_to :product_class
+      end
+      class ProductClass < ActiveRecord::Base
+      end
+      class Customer < ActiveRecord::Base
+      end
+      class Sales < ActiveRecord::Base
+        self.table_name = "sales"
+        belongs_to :time_by_day
+        belongs_to :product
+        belongs_to :customer
+      end
+    end
+  end
+
+  desc "Create test data"
+  task :create_data => [:create_tables, :setup_luciddb, :create_time_data, :create_product_data, :create_customer_data, :create_sales_data]
+
+  task :create_time_data  => :define_models do
+    puts "==> Creating time dimension"
+    if MONDRIAN_DRIVER == 'luciddb'
+      ActiveRecord::Base.connection.execute 'truncate table "TIME"'
+      ActiveRecord::Base.connection.execute 'insert into "TIME" select * from mondrian_test_source."time"'
+      ActiveRecord::Base.connection.execute 'analyze table "TIME" compute statistics for all columns'
+    else
+      TimeDimension.delete_all
+      start_time = Time.local(2010,1,1)
+      (2*365).times do |i|
+        TimeDimension.create!(:the_date => start_time + i.day)
+      end
+    end
+  end
+
+  task :create_product_data => :define_models do
+    puts "==> Creating product data"
+    if MONDRIAN_DRIVER == 'luciddb'
+      ActiveRecord::Base.connection.execute 'truncate table product_classes'
+      ActiveRecord::Base.connection.execute 'truncate table products'
+      ActiveRecord::Base.connection.execute 'insert into product_classes select * from mondrian_test_source."product_classes"'
+      ActiveRecord::Base.connection.execute 'insert into products select * from mondrian_test_source."products"'
+      ActiveRecord::Base.connection.execute 'analyze table product_classes compute statistics for all columns'
+      ActiveRecord::Base.connection.execute 'analyze table products compute statistics for all columns'
+    else
+      Product.delete_all
+      ProductClass.delete_all
+      families = ["Drink", "Food", "Non-Consumable"]
+      (1..100).each do |i|
+        product_class = ProductClass.create!(
+          :product_family => families[i % 3],
+          :product_department => "Department #{i}",
+          :product_category => "Category #{i}",
+          :product_subcategory => "Subcategory #{i}"
+        )
+        Product.create!(
+          # LucidDB is not returning inserted ID therefore doing it hard way
+          :product_class_id => ProductClass.find_all_by_product_category("Category #{i}").first.id,
+          :brand_name => "Brand #{i}",
+          :product_name => "Product #{i}"
+        )
+      end
+    end
+  end
+
+  task :create_customer_data => :define_models do
+    puts "==> Creating customer data"
+    if MONDRIAN_DRIVER == 'luciddb'
+      ActiveRecord::Base.connection.execute 'truncate table customers'
+      ActiveRecord::Base.connection.execute 'insert into customers select * from mondrian_test_source."customers"'
+      ActiveRecord::Base.connection.execute 'analyze table customers compute statistics for all columns'
+    else
+      Customer.delete_all
+      i = 0
+      [
+        ["Canada", "BC", "Burnaby"],["Canada", "BC", "Cliffside"],["Canada", "BC", "Haney"],["Canada", "BC", "Ladner"],
+        ["Canada", "BC", "Langford"],["Canada", "BC", "Langley"],["Canada", "BC", "Metchosin"],["Canada", "BC", "N. Vancouver"],
+        ["Canada", "BC", "Newton"],["Canada", "BC", "Oak Bay"],["Canada", "BC", "Port Hammond"],["Canada", "BC", "Richmond"],
+        ["Canada", "BC", "Royal Oak"],["Canada", "BC", "Shawnee"],["Canada", "BC", "Sooke"],["Canada", "BC", "Vancouver"],
+        ["Canada", "BC", "Victoria"],["Canada", "BC", "Westminster"],
+        ["Mexico", "DF", "San Andres"],["Mexico", "DF", "Santa Anita"],["Mexico", "DF", "Santa Fe"],["Mexico", "DF", "Tixapan"],
+        ["Mexico", "Guerrero", "Acapulco"],["Mexico", "Jalisco", "Guadalajara"],["Mexico", "Mexico", "Mexico City"],
+        ["Mexico", "Oaxaca", "Tlaxiaco"],["Mexico", "Sinaloa", "La Cruz"],["Mexico", "Veracruz", "Orizaba"],
+        ["Mexico", "Yucatan", "Merida"],["Mexico", "Zacatecas", "Camacho"],["Mexico", "Zacatecas", "Hidalgo"],
+        ["USA", "CA", "Altadena"],["USA", "CA", "Arcadia"],["USA", "CA", "Bellflower"],["USA", "CA", "Berkeley"],
+        ["USA", "CA", "Beverly Hills"],["USA", "CA", "Burbank"],["USA", "CA", "Burlingame"],["USA", "CA", "Chula Vista"],
+        ["USA", "CA", "Colma"],["USA", "CA", "Concord"],["USA", "CA", "Coronado"],["USA", "CA", "Daly City"],
+        ["USA", "CA", "Downey"],["USA", "CA", "El Cajon"],["USA", "CA", "Fremont"],["USA", "CA", "Glendale"],
+        ["USA", "CA", "Grossmont"],["USA", "CA", "Imperial Beach"],["USA", "CA", "La Jolla"],["USA", "CA", "La Mesa"],
+        ["USA", "CA", "Lakewood"],["USA", "CA", "Lemon Grove"],["USA", "CA", "Lincoln Acres"],["USA", "CA", "Long Beach"],
+        ["USA", "CA", "Los Angeles"],["USA", "CA", "Mill Valley"],["USA", "CA", "National City"],["USA", "CA", "Newport Beach"],
+        ["USA", "CA", "Novato"],["USA", "CA", "Oakland"],["USA", "CA", "Palo Alto"],["USA", "CA", "Pomona"],
+        ["USA", "CA", "Redwood City"],["USA", "CA", "Richmond"],["USA", "CA", "San Carlos"],["USA", "CA", "San Diego"],
+        ["USA", "CA", "San Francisco"],["USA", "CA", "San Gabriel"],["USA", "CA", "San Jose"],["USA", "CA", "Santa Cruz"],
+        ["USA", "CA", "Santa Monica"],["USA", "CA", "Spring Valley"],["USA", "CA", "Torrance"],["USA", "CA", "West Covina"],
+        ["USA", "CA", "Woodland Hills"],
+        ["USA", "OR", "Albany"],["USA", "OR", "Beaverton"],["USA", "OR", "Corvallis"],["USA", "OR", "Lake Oswego"],
+        ["USA", "OR", "Lebanon"],["USA", "OR", "Milwaukie"],["USA", "OR", "Oregon City"],["USA", "OR", "Portland"],
+        ["USA", "OR", "Salem"],["USA", "OR", "W. Linn"],["USA", "OR", "Woodburn"],
+        ["USA", "WA", "Anacortes"],["USA", "WA", "Ballard"],["USA", "WA", "Bellingham"],["USA", "WA", "Bremerton"],
+        ["USA", "WA", "Burien"],["USA", "WA", "Edmonds"],["USA", "WA", "Everett"],["USA", "WA", "Issaquah"],
+        ["USA", "WA", "Kirkland"],["USA", "WA", "Lynnwood"],["USA", "WA", "Marysville"],["USA", "WA", "Olympia"],
+        ["USA", "WA", "Port Orchard"],["USA", "WA", "Puyallup"],["USA", "WA", "Redmond"],["USA", "WA", "Renton"],
+        ["USA", "WA", "Seattle"],["USA", "WA", "Sedro Woolley"],["USA", "WA", "Spokane"],["USA", "WA", "Tacoma"],
+        ["USA", "WA", "Walla Walla"],["USA", "WA", "Yakima"]
+      ].each do |country, state, city|
+        i += 1
+        Customer.create!(
+          :country => country,
+          :state_province => state,
+          :city => city,
+          :fname => "First#{i}",
+          :lname => "Last#{i}",
+          :fullname => "First#{i} Last#{i}",
+          :gender => i % 2 == 0 ? "M" : "F"
+        )
+      end
+    end
+  end
+
+  task :create_sales_data => :define_models do
+    puts "==> Creating sales data"
+    if MONDRIAN_DRIVER == 'luciddb'
+      ActiveRecord::Base.connection.execute 'truncate table sales'
+      ActiveRecord::Base.connection.execute 'insert into sales select * from mondrian_test_source."sales"'
+      ActiveRecord::Base.connection.execute 'analyze table sales compute statistics for all columns'
+    else
+      Sales.delete_all
+      count = 100
+      # LucidDB does not support LIMIT therefore select all and limit in Ruby
+      products = Product.order("id").all[0...count]
+      times = TimeDimension.order("id").all[0...count]
+      customers = Customer.order("id").all[0...count]
+      count.times do |i|
+        Sales.create!(
+          :product_id => products[i].id,
+          :time_id => times[i].id,
+          :customer_id => customers[i].id,
+          :store_sales => BigDecimal("2#{i}.12"),
+          :store_cost => BigDecimal("1#{i}.1234"),
+          :unit_sales => i+1
+        )
+      end
+    end
+  end
+
+end
+
+namespace :spec do
+  %w(mysql postgresql oracle luciddb mssql sqlserver).each do |driver|
+    desc "Run specs with #{driver} driver"
+    task driver do
+      ENV['MONDRIAN_DRIVER'] = driver
+      Rake::Task['spec'].reenable
+      Rake::Task['spec'].invoke
+    end
+  end
+
+  desc "Run specs with all database drivers"
+  task :all do
+    %w(mysql postgresql oracle luciddb mssql sqlserver).each do |driver|
+      Rake::Task["spec:#{driver}"].invoke
+    end
+  end
+end

data/spec/schema_definition_spec.rb

@@ -0,0 +1,1249 @@
+require "spec_helper"
+require "coffee-script"
+
+describe "Schema definition" do
+
+  describe "elements" do
+    before(:each) do
+      @schema = Mondrian::OLAP::Schema.new
+    end
+
+    describe "root element" do
+      it "should render to XML" do
+        @schema.to_xml.should be_like <<-XML
+        <?xml version="1.0"?>
+        <Schema/>
+        XML
+      end
+
+      it "should render to XML with attributes" do
+        @schema.define('FoodMart') do
+          description 'Demo "FoodMart" schema'
+        end
+        @schema.to_xml.should be_like <<-XML
+        <?xml version="1.0"?>
+        <Schema description="Demo &quot;FoodMart&quot; schema" name="FoodMart"/>
+        XML
+      end
+
+      it "should render to XML using class method" do
+        schema = Mondrian::OLAP::Schema.define('FoodMart')
+        schema.to_xml.should be_like <<-XML
+        <?xml version="1.0"?>
+        <Schema name="FoodMart"/>
+        XML
+      end
+    end
+
+    describe "Cube" do
+      it "should render to XML" do
+        @schema.define do
+          cube 'Sales' do
+            default_measure 'Unit Sales'
+            description 'Sales cube'
+            cache false
+            enabled true
+          end
+        end
+        @schema.to_xml.should be_like <<-XML
+        <?xml version="1.0"?>
+        <Schema name="default">
+          <Cube cache="false" defaultMeasure="Unit Sales" description="Sales cube" enabled="true" name="Sales"/>
+        </Schema>
+        XML
+      end
+
+      it "should render to XML using options hash" do
+        @schema.define do
+          cube 'Sales', :default_measure => 'Unit Sales',
+            :description => 'Sales cube', :cache => false, :enabled => true
+        end
+        @schema.to_xml.should be_like <<-XML
+        <?xml version="1.0"?>
+        <Schema name="default">
+          <Cube cache="false" defaultMeasure="Unit Sales" description="Sales cube" enabled="true" name="Sales"/>
+        </Schema>
+        XML
+      end
+    end
+
+    describe "Table" do
+      it "should render to XML" do
+        @schema.define do
+          cube 'Sales' do
+            table 'sales_fact', :alias => 'sales'
+          end
+        end
+        @schema.to_xml.should be_like <<-XML
+        <?xml version="1.0"?>
+        <Schema name="default">
+          <Cube name="Sales">
+            <Table alias="sales" name="sales_fact"/>
+          </Cube>
+        </Schema>
+        XML
+      end
+
+      it "should render table name in uppercase when using Oracle or LucidDB driver" do
+        @schema.define do
+          cube 'Sales' do
+            table 'sales_fact', :alias => 'sales', :schema => 'facts'
+          end
+        end
+        %w(oracle luciddb).each do |driver|
+          @schema.to_xml(:driver => driver).should be_like <<-XML
+          <?xml version="1.0"?>
+          <Schema name="default">
+            <Cube name="Sales">
+              <Table alias="SALES" name="SALES_FACT" schema="FACTS"/>
+            </Cube>
+          </Schema>
+          XML
+        end
+      end
+
+      it "should render table name in uppercase when :upcase_data_dictionary option is set to true" do
+        @schema.define :upcase_data_dictionary => true do
+          cube 'Sales' do
+            table 'sales_fact', :alias => 'sales', :schema => 'facts'
+          end
+        end
+        @schema.to_xml.should be_like <<-XML
+        <?xml version="1.0"?>
+        <Schema name="default">
+          <Cube name="Sales">
+            <Table alias="SALES" name="SALES_FACT" schema="FACTS"/>
+          </Cube>
+        </Schema>
+        XML
+      end
+
+      it "should render table name in lowercase when using Oracle or LucidDB driver but with :upcase_data_dictionary set to false" do
+        @schema.define :upcase_data_dictionary => false do
+          cube 'Sales' do
+            table 'sales_fact', :alias => 'sales', :schema => 'facts'
+          end
+        end
+        %w(oracle luciddb).each do |driver|
+          @schema.to_xml(:driver => driver).should be_like <<-XML
+          <?xml version="1.0"?>
+          <Schema name="default">
+            <Cube name="Sales">
+              <Table alias="sales" name="sales_fact" schema="facts"/>
+            </Cube>
+          </Schema>
+          XML
+        end
+      end
+
+      it "should render table with where condition" do
+        @schema.define do
+          cube 'Sales' do
+            table 'sales_fact', :alias => 'sales' do
+              sql 'customer_id IS NOT NULL'
+            end
+          end
+        end
+        @schema.to_xml.should be_like <<-XML
+        <?xml version="1.0"?>
+        <Schema name="default">
+          <Cube name="Sales">
+            <Table alias="sales" name="sales_fact">
+              <SQL>customer_id IS NOT NULL</SQL>
+            </Table>
+          </Cube>
+        </Schema>
+        XML
+      end
+    end
+
+    describe "View" do
+      it "should render to XML" do
+        @schema.define do
+          cube 'Sales' do
+            view :alias => 'sales' do
+              sql 'select * from sales_fact'
+            end
+          end
+        end
+        @schema.to_xml.should be_like <<-XML
+        <?xml version="1.0"?>
+        <Schema name="default">
+          <Cube name="Sales">
+            <View alias="sales">
+              <SQL>select * from sales_fact</SQL>
+            </View>
+          </Cube>
+        </Schema>
+        XML
+      end
+    end
+
+    describe "Dimension" do
+      it "should render to XML" do
+        @schema.define do
+          cube 'Sales' do
+            dimension 'Gender' do
+              foreign_key 'customer_id'
+              hierarchy do
+                has_all true
+                all_member_name 'All Genders'
+                primary_key 'customer_id'
+                table 'customer'
+                level 'Gender', :column => 'gender', :unique_members => true
+              end
+            end
+          end
+        end
+        @schema.to_xml.should be_like <<-XML
+        <?xml version="1.0"?>
+        <Schema name="default">
+          <Cube name="Sales">
+            <Dimension foreignKey="customer_id" name="Gender">
+              <Hierarchy allMemberName="All Genders" hasAll="true" primaryKey="customer_id">
+                <Table name="customer"/>
+                <Level column="gender" name="Gender" uniqueMembers="true"/>
+              </Hierarchy>
+            </Dimension>
+          </Cube>
+        </Schema>
+        XML
+      end
+
+      it "should render time dimension" do
+        @schema.define do
+          cube 'Sales' do
+            dimension 'Time' do
+              foreign_key 'time_id'
+              hierarchy do
+                has_all false
+                primary_key 'time_id'
+                table 'time_by_day'
+                level 'Year', :column => 'the_year', :type => 'Numeric', :unique_members => true
+                level 'Quarter', :column => 'quarter', :unique_members => false
+                level 'Month', :column => 'month_of_year', :type => 'Numeric', :unique_members => false
+              end
+            end
+          end
+        end
+        @schema.to_xml.should be_like <<-XML
+        <?xml version="1.0"?>
+        <Schema name="default">
+          <Cube name="Sales">
+            <Dimension foreignKey="time_id" name="Time">
+              <Hierarchy hasAll="false" primaryKey="time_id">
+                <Table name="time_by_day"/>
+                <Level column="the_year" name="Year" type="Numeric" uniqueMembers="true"/>
+                <Level column="quarter" name="Quarter" uniqueMembers="false"/>
+                <Level column="month_of_year" name="Month" type="Numeric" uniqueMembers="false"/>
+              </Hierarchy>
+            </Dimension>
+          </Cube>
+        </Schema>
+        XML
+      end
+
+      it "should render dimension hierarchy with join" do
+        @schema.define do
+          cube 'Sales' do
+            dimension 'Products', :foreign_key => 'product_id' do
+              hierarchy :has_all => true, :all_member_name => 'All Products',
+                        :primary_key => 'product_id', :primary_key_table => 'product' do
+                join :left_key => 'product_class_id', :right_key => 'product_class_id' do
+                  table 'product'
+                  table 'product_class'
+                end
+                level 'Product Family', :table => 'product_class', :column => 'product_family', :unique_members => true
+                level 'Brand Name', :table => 'product', :column => 'brand_name', :unique_members => false
+                level 'Product Name', :table => 'product', :column => 'product_name', :unique_members => true
+              end
+            end
+          end
+        end
+        @schema.to_xml.should be_like <<-XML
+        <?xml version="1.0"?>
+        <Schema name="default">
+          <Cube name="Sales">
+            <Dimension foreignKey="product_id" name="Products">
+              <Hierarchy allMemberName="All Products" hasAll="true" primaryKey="product_id" primaryKeyTable="product">
+                <Join leftKey="product_class_id" rightKey="product_class_id">
+                  <Table name="product"/>
+                  <Table name="product_class"/>
+                </Join>
+                <Level column="product_family" name="Product Family" table="product_class" uniqueMembers="true"/>
+                <Level column="brand_name" name="Brand Name" table="product" uniqueMembers="false"/>
+                <Level column="product_name" name="Product Name" table="product" uniqueMembers="true"/>
+              </Hierarchy>
+            </Dimension>
+          </Cube>
+        </Schema>
+        XML
+      end
+
+      it "should render table and column names in uppercase when using Oracle driver" do
+        @schema.define do
+          cube 'Sales' do
+            dimension 'Products', :foreign_key => 'product_id' do
+              hierarchy :has_all => true, :all_member_name => 'All Products',
+                        :primary_key => 'product_id', :primary_key_table => 'product' do
+                join :left_key => 'product_class_id', :right_key => 'product_class_id' do
+                  table 'product'
+                  table 'product_class'
+                end
+                level 'Product Family', :table => 'product_class', :column => 'product_family', :unique_members => true
+                level 'Brand Name', :table => 'product', :column => 'brand_name', :unique_members => false
+                level 'Product Name', :table => 'product', :column => 'product_name', :unique_members => true
+              end
+            end
+          end
+        end
+        @schema.to_xml(:driver => 'oracle').should be_like <<-XML
+        <?xml version="1.0"?>
+        <Schema name="default">
+          <Cube name="Sales">
+            <Dimension foreignKey="PRODUCT_ID" name="Products">
+              <Hierarchy allMemberName="All Products" hasAll="true" primaryKey="PRODUCT_ID" primaryKeyTable="PRODUCT">
+                <Join leftKey="PRODUCT_CLASS_ID" rightKey="PRODUCT_CLASS_ID">
+                  <Table name="PRODUCT"/>
+                  <Table name="PRODUCT_CLASS"/>
+                </Join>
+                <Level column="PRODUCT_FAMILY" name="Product Family" table="PRODUCT_CLASS" uniqueMembers="true"/>
+                <Level column="BRAND_NAME" name="Brand Name" table="PRODUCT" uniqueMembers="false"/>
+                <Level column="PRODUCT_NAME" name="Product Name" table="PRODUCT" uniqueMembers="true"/>
+              </Hierarchy>
+            </Dimension>
+          </Cube>
+        </Schema>
+        XML
+      end
+
+      it "should render dimension hierarchy with nested joins" do
+        @schema.define do
+          cube 'Sales' do
+            dimension 'Products', :foreign_key => 'product_id' do
+              hierarchy :has_all => true, :all_member_name => 'All Products',
+                        :primary_key => 'product_id', :primary_key_table => 'product' do
+                join :left_key => 'product_class_id', :right_alias => 'product_class', :right_key => 'product_class_id' do
+                  table 'product'
+                  join :left_key  => 'product_type_id', :right_key => 'product_type_id' do
+                    table 'product_class'
+                    table 'product_type'
+                  end
+                end
+                level 'Product Family', :table => 'product_type', :column => 'product_family', :unique_members => true
+                level 'Product Category', :table => 'product_class', :column => 'product_category', :unique_members => false
+                level 'Brand Name', :table => 'product', :column => 'brand_name', :unique_members => false
+                level 'Product Name', :table => 'product', :column => 'product_name', :unique_members => true
+              end
+            end
+          end
+        end
+        @schema.to_xml.should be_like <<-XML
+        <?xml version="1.0"?>
+        <Schema name="default">
+          <Cube name="Sales">
+            <Dimension foreignKey="product_id" name="Products">
+              <Hierarchy allMemberName="All Products" hasAll="true" primaryKey="product_id" primaryKeyTable="product">
+                <Join leftKey="product_class_id" rightAlias="product_class" rightKey="product_class_id">
+                  <Table name="product"/>
+                  <Join leftKey="product_type_id" rightKey="product_type_id">
+                    <Table name="product_class"/>
+                    <Table name="product_type"/>
+                  </Join>
+                </Join>
+                <Level column="product_family" name="Product Family" table="product_type" uniqueMembers="true"/>
+                <Level column="product_category" name="Product Category" table="product_class" uniqueMembers="false"/>
+                <Level column="brand_name" name="Brand Name" table="product" uniqueMembers="false"/>
+                <Level column="product_name" name="Product Name" table="product" uniqueMembers="true"/>
+              </Hierarchy>
+            </Dimension>
+          </Cube>
+        </Schema>
+        XML
+      end
+
+    end
+
+    describe "Measure" do
+      it "should render XML" do
+        @schema.define do
+          cube 'Sales' do
+            measure 'Unit Sales' do
+              column 'unit_sales'
+              aggregator 'sum'
+            end
+          end
+        end
+        @schema.to_xml.should be_like <<-XML
+        <?xml version="1.0"?>
+        <Schema name="default">
+          <Cube name="Sales">
+            <Measure aggregator="sum" column="unit_sales" name="Unit Sales"/>
+          </Cube>
+        </Schema>
+        XML
+      end
+
+      it "should render column name in uppercase when using Oracle driver" do
+        @schema.define do
+          cube 'Sales' do
+            measure 'Unit Sales' do
+              column 'unit_sales'
+              aggregator 'sum'
+            end
+          end
+        end
+        @schema.to_xml(:driver => 'oracle').should be_like <<-XML
+        <?xml version="1.0"?>
+        <Schema name="default">
+          <Cube name="Sales">
+            <Measure aggregator="sum" column="UNIT_SALES" name="Unit Sales"/>
+          </Cube>
+        </Schema>
+        XML
+      end
+
+      it "should render with measure expression" do
+        @schema.define do
+          cube 'Sales' do
+            measure 'Double Unit Sales', :aggregator => 'sum' do
+              measure_expression do
+                sql 'unit_sales * 2'
+              end
+            end
+          end
+        end
+        @schema.to_xml.should be_like <<-XML
+        <?xml version="1.0"?>
+        <Schema name="default">
+          <Cube name="Sales">
+            <Measure aggregator="sum" name="Double Unit Sales">
+              <MeasureExpression>
+                <SQL>unit_sales * 2</SQL>
+              </MeasureExpression>
+            </Measure>
+          </Cube>
+        </Schema>
+        XML
+      end
+    end
+
+    describe "Calculated Member" do
+      it "should render XML" do
+        @schema.define do
+          cube 'Sales' do
+            calculated_member 'Profit' do
+              dimension 'Measures'
+              formula '[Measures].[Store Sales] - [Measures].[Store Cost]'
+              format_string '#,##0.00'
+            end
+          end
+        end
+        @schema.to_xml.should be_like <<-XML
+        <?xml version="1.0"?>
+        <Schema name="default">
+          <Cube name="Sales">
+            <CalculatedMember dimension="Measures" formatString="#,##0.00" name="Profit">
+              <Formula>[Measures].[Store Sales] - [Measures].[Store Cost]</Formula>
+            </CalculatedMember>
+          </Cube>
+        </Schema>
+        XML
+      end
+    end
+
+    describe "Aggregates" do
+      it "should render named aggregate to XML" do
+        @schema.define do
+          cube 'Sales' do
+            table 'sales_fact_1997' do
+              agg_name 'agg_c_special_sales_fact_1997' do
+                agg_fact_count :column => 'fact_count'
+                agg_measure '[Measures].[Store Cost]', :column => 'store_cost_sum'
+                agg_measure '[Measures].[Store Sales]', :column => 'store_sales_sum'
+                agg_level '[Product].[Product Family]', :column => 'product_family'
+                agg_level '[Time].[Quarter]', :column => 'time_quarter'
+                agg_level '[Time].[Year]', :column => 'time_year'
+                agg_level '[Time].[Quarter]', :column => 'time_quarter'
+                agg_level '[Time].[Month]', :column => 'time_month'
+              end
+            end
+          end
+        end
+        @schema.to_xml.should be_like <<-XML
+        <?xml version="1.0"?>
+        <Schema name="default">
+          <Cube name="Sales">
+            <Table name="sales_fact_1997">
+              <AggName name="agg_c_special_sales_fact_1997">
+                <AggFactCount column="fact_count"/>
+                <AggMeasure column="store_cost_sum" name="[Measures].[Store Cost]"/>
+                <AggMeasure column="store_sales_sum" name="[Measures].[Store Sales]"/>
+                <AggLevel column="product_family" name="[Product].[Product Family]"/>
+                <AggLevel column="time_quarter" name="[Time].[Quarter]"/>
+                <AggLevel column="time_year" name="[Time].[Year]"/>
+                <AggLevel column="time_quarter" name="[Time].[Quarter]"/>
+                <AggLevel column="time_month" name="[Time].[Month]"/>
+              </AggName>
+            </Table>
+          </Cube>
+        </Schema>
+        XML
+      end
+
+      it "should render aggregate pattern to XML" do
+        @schema.define do
+          cube 'Sales' do
+            table 'sales_fact_1997' do
+              agg_pattern :pattern => 'agg_.*_sales_fact_1997' do
+                agg_fact_count :column => 'fact_count'
+                agg_measure '[Measures].[Store Cost]', :column => 'store_cost_sum'
+                agg_measure '[Measures].[Store Sales]', :column => 'store_sales_sum'
+                agg_level '[Product].[Product Family]', :column => 'product_family'
+                agg_level '[Time].[Quarter]', :column => 'time_quarter'
+                agg_level '[Time].[Year]', :column => 'time_year'
+                agg_level '[Time].[Quarter]', :column => 'time_quarter'
+                agg_level '[Time].[Month]', :column => 'time_month'
+                agg_exclude 'agg_c_14_sales_fact_1997'
+                agg_exclude 'agg_lc_100_sales_fact_1997'
+              end
+            end
+          end
+        end
+        @schema.to_xml.should be_like <<-XML
+        <?xml version="1.0"?>
+        <Schema name="default">
+          <Cube name="Sales">
+            <Table name="sales_fact_1997">
+              <AggPattern pattern="agg_.*_sales_fact_1997">
+                <AggFactCount column="fact_count"/>
+                <AggMeasure column="store_cost_sum" name="[Measures].[Store Cost]"/>
+                <AggMeasure column="store_sales_sum" name="[Measures].[Store Sales]"/>
+                <AggLevel column="product_family" name="[Product].[Product Family]"/>
+                <AggLevel column="time_quarter" name="[Time].[Quarter]"/>
+                <AggLevel column="time_year" name="[Time].[Year]"/>
+                <AggLevel column="time_quarter" name="[Time].[Quarter]"/>
+                <AggLevel column="time_month" name="[Time].[Month]"/>
+                <AggExclude name="agg_c_14_sales_fact_1997"/>
+                <AggExclude name="agg_lc_100_sales_fact_1997"/>
+              </AggPattern>
+            </Table>
+          </Cube>
+        </Schema>
+        XML
+      end
+
+      it "should render embedded aggregate XML defintion to XML" do
+        @schema.define do
+          cube 'Sales' do
+            table 'sales_fact_1997' do
+              xml <<-XML
+                <AggName name="agg_c_special_sales_fact_1997">
+                  <AggFactCount column="fact_count"/>
+                  <AggMeasure column="store_cost_sum" name="[Measures].[Store Cost]"/>
+                  <AggMeasure column="store_sales_sum" name="[Measures].[Store Sales]"/>
+                  <AggLevel column="product_family" name="[Product].[Product Family]"/>
+                  <AggLevel column="time_quarter" name="[Time].[Quarter]"/>
+                  <AggLevel column="time_year" name="[Time].[Year]"/>
+                  <AggLevel column="time_quarter" name="[Time].[Quarter]"/>
+                  <AggLevel column="time_month" name="[Time].[Month]"/>
+                </AggName>
+                <AggPattern pattern="agg_.*_sales_fact_1997">
+                  <AggFactCount column="fact_count"/>
+                  <AggMeasure column="store_cost_sum" name="[Measures].[Store Cost]"/>
+                  <AggMeasure column="store_sales_sum" name="[Measures].[Store Sales]"/>
+                  <AggLevel column="product_family" name="[Product].[Product Family]"/>
+                  <AggLevel column="time_quarter" name="[Time].[Quarter]"/>
+                  <AggLevel column="time_year" name="[Time].[Year]"/>
+                  <AggLevel column="time_quarter" name="[Time].[Quarter]"/>
+                  <AggLevel column="time_month" name="[Time].[Month]"/>
+                  <AggExclude name="agg_c_14_sales_fact_1997"/>
+                  <AggExclude name="agg_lc_100_sales_fact_1997"/>
+                </AggPattern>
+              XML
+            end
+          end
+        end
+        @schema.to_xml.should be_like <<-XML
+        <?xml version="1.0"?>
+        <Schema name="default">
+          <Cube name="Sales">
+            <Table name="sales_fact_1997">
+              <AggName name="agg_c_special_sales_fact_1997">
+                <AggFactCount column="fact_count"/>
+                <AggMeasure column="store_cost_sum" name="[Measures].[Store Cost]"/>
+                <AggMeasure column="store_sales_sum" name="[Measures].[Store Sales]"/>
+                <AggLevel column="product_family" name="[Product].[Product Family]"/>
+                <AggLevel column="time_quarter" name="[Time].[Quarter]"/>
+                <AggLevel column="time_year" name="[Time].[Year]"/>
+                <AggLevel column="time_quarter" name="[Time].[Quarter]"/>
+                <AggLevel column="time_month" name="[Time].[Month]"/>
+              </AggName>
+              <AggPattern pattern="agg_.*_sales_fact_1997">
+                <AggFactCount column="fact_count"/>
+                <AggMeasure column="store_cost_sum" name="[Measures].[Store Cost]"/>
+                <AggMeasure column="store_sales_sum" name="[Measures].[Store Sales]"/>
+                <AggLevel column="product_family" name="[Product].[Product Family]"/>
+                <AggLevel column="time_quarter" name="[Time].[Quarter]"/>
+                <AggLevel column="time_year" name="[Time].[Year]"/>
+                <AggLevel column="time_quarter" name="[Time].[Quarter]"/>
+                <AggLevel column="time_month" name="[Time].[Month]"/>
+                <AggExclude name="agg_c_14_sales_fact_1997"/>
+                <AggExclude name="agg_lc_100_sales_fact_1997"/>
+              </AggPattern>
+            </Table>
+          </Cube>
+        </Schema>
+        XML
+      end
+
+    end
+
+    describe "Member properties" do
+      it "should render XML" do
+        @schema.define do
+          cube 'Sales' do
+            dimension 'Employees', :foreign_key => 'employee_id' do
+              hierarchy :has_all => true, :all_member_name => 'All Employees', :primary_key => 'employee_id' do
+                table 'employee'
+                level 'Employee Id', :unique_members => true, :type => 'Numeric', :column => 'employee_id', :name_column => 'full_name',
+                                      :parent_column => 'supervisor_id', :null_parent_value => 0 do
+                  property 'Marital Status', :column => 'marital_status'
+                  property 'Position Title', :column => 'position_title'
+                  property 'Gender', :column => 'gender'
+                  property 'Salary', :column => 'salary'
+                  property 'Education Level', :column => 'education_level'
+                end
+              end
+            end
+          end
+        end
+        @schema.to_xml.should be_like <<-XML
+        <?xml version="1.0"?>
+        <Schema name="default">
+          <Cube name="Sales">
+            <Dimension foreignKey="employee_id" name="Employees">
+              <Hierarchy allMemberName="All Employees" hasAll="true" primaryKey="employee_id">
+                <Table name="employee"/>
+                <Level column="employee_id" name="Employee Id" nameColumn="full_name" nullParentValue="0" parentColumn="supervisor_id" type="Numeric" uniqueMembers="true">
+                  <Property column="marital_status" name="Marital Status"/>
+                  <Property column="position_title" name="Position Title"/>
+                  <Property column="gender" name="Gender"/>
+                  <Property column="salary" name="Salary"/>
+                  <Property column="education_level" name="Education Level"/>
+                </Level>
+              </Hierarchy>
+            </Dimension>
+          </Cube>
+        </Schema>
+        XML
+      end
+    end
+
+    describe "User defined functions and formatters in JavaScript" do
+      before(:each) do
+        @schema.define do
+          cube 'Sales' do
+            table 'sales'
+            dimension 'Customers', :foreign_key => 'customer_id' do
+              hierarchy :has_all => true, :all_member_name => 'All Customers', :primary_key => 'id' do
+                table 'customers'
+                level 'Name', :column => 'fullname' do
+                  member_formatter { javascript "return member.getName().toUpperCase();" }
+                  property 'City', :column => 'city' do
+                    property_formatter { javascript "return propertyValue.toUpperCase();" }
+                  end
+                end
+              end
+            end
+            calculated_member 'Factorial' do
+              dimension 'Measures'
+              formula 'Factorial(6)'
+              cell_formatter do
+                javascript <<-JS
+                  var s = value.toString();
+                  while (s.length < 20) {
+                    s = "0" + s;
+                  }
+                  return s;
+                JS
+              end
+            end
+            calculated_member 'City' do
+              dimension 'Measures'
+              formula "[Customers].CurrentMember.Properties('City')"
+            end
+          end
+          user_defined_function 'Factorial' do
+            javascript <<-JS
+              function getParameterTypes() {
+                return new Array(
+                  new mondrian.olap.type.NumericType());
+              }
+              function getReturnType(parameterTypes) {
+                return new mondrian.olap.type.NumericType();
+              }
+              function execute(evaluator, arguments) {
+                var n = arguments[0].evaluateScalar(evaluator);
+                return factorial(n);
+              }
+              function factorial(n) {
+                return n <= 1 ? 1 : n * factorial(n - 1);
+              }
+            JS
+          end
+        end
+        @olap = Mondrian::OLAP::Connection.create(CONNECTION_PARAMS.merge :schema => @schema)
+      end
+
+      it "should render XML" do
+        @schema.to_xml.should be_like <<-XML
+        <?xml version="1.0"?>
+        <Schema name="default">
+          <Cube name="Sales">
+            <Table name="sales"/>
+            <Dimension foreignKey="customer_id" name="Customers">
+              <Hierarchy allMemberName="All Customers" hasAll="true" primaryKey="id">
+                <Table name="customers"/>
+                <Level column="fullname" name="Name">
+                  <MemberFormatter>
+                    <Script language="JavaScript">return member.getName().toUpperCase();</Script>
+                  </MemberFormatter>
+                  <Property column="city" name="City">
+                    <PropertyFormatter>
+                      <Script language="JavaScript">return propertyValue.toUpperCase();</Script>
+                    </PropertyFormatter>
+                  </Property>
+                </Level>
+              </Hierarchy>
+            </Dimension>
+            <CalculatedMember dimension="Measures" name="Factorial">
+              <Formula>Factorial(6)</Formula>
+              <CellFormatter>
+                <Script language="JavaScript">
+                  var s = value.toString();
+                  while (s.length &lt; 20) {
+                    s = "0" + s;
+                  }
+                  return s;
+                </Script>
+              </CellFormatter>
+            </CalculatedMember>
+            <CalculatedMember dimension="Measures" name="City">
+              <Formula>[Customers].CurrentMember.Properties('City')</Formula>
+            </CalculatedMember>
+          </Cube>
+          <UserDefinedFunction name="Factorial">
+            <Script language="JavaScript">
+              function getParameterTypes() {
+                return new Array(
+                  new mondrian.olap.type.NumericType());
+              }
+              function getReturnType(parameterTypes) {
+                return new mondrian.olap.type.NumericType();
+              }
+              function execute(evaluator, arguments) {
+                var n = arguments[0].evaluateScalar(evaluator);
+                return factorial(n);
+              }
+              function factorial(n) {
+                return n &lt;= 1 ? 1 : n * factorial(n - 1);
+              }
+            </Script>
+          </UserDefinedFunction>
+        </Schema>
+        XML
+      end
+
+      it "should execute user defined function" do
+        result = @olap.from('Sales').columns('[Measures].[Factorial]').execute
+        value = 1*2*3*4*5*6
+        result.values.should == [value]
+        result.formatted_values.should == ["%020d" % value]
+      end
+
+      it "should format members and properties" do
+        result = @olap.from('Sales').columns('[Measures].[City]').rows('[Customers].[All Customers].Children').execute
+        result.row_members.each_with_index do |member, i|
+          member.caption.should == member.name.upcase
+          city = member.property_value('City')
+          result.formatted_values[i].first.should == city
+          member.property_formatted_value('City').should == city.upcase
+        end
+      end
+    end
+
+    describe "User defined functions and formatters in CoffeeScript" do
+      before(:each) do
+        @schema.define do
+          cube 'Sales' do
+            table 'sales'
+            dimension 'Customers', :foreign_key => 'customer_id' do
+              hierarchy :has_all => true, :all_member_name => 'All Customers', :primary_key => 'id' do
+                table 'customers'
+                level 'Name', :column => 'fullname' do
+                  member_formatter { coffeescript "member.getName().toUpperCase()" }
+                  property 'City', :column => 'city' do
+                    property_formatter { coffeescript "propertyValue.toUpperCase()" }
+                  end
+                end
+              end
+            end
+            calculated_member 'Factorial' do
+              dimension 'Measures'
+              formula 'Factorial(6)'
+              cell_formatter do
+                coffeescript <<-JS
+                  s = value.toString()
+                  s = "0" + s while s.length < 20
+                  s
+                JS
+              end
+            end
+            calculated_member 'City' do
+              dimension 'Measures'
+              formula "[Customers].CurrentMember.Properties('City')"
+            end
+          end
+          user_defined_function 'Factorial' do
+            coffeescript <<-JS
+              parameters: ["Numeric"]
+              returns: "Numeric"
+              execute: (n) ->
+                if n <= 1 then 1 else n * @execute(n - 1)
+            JS
+          end
+          user_defined_function 'UpperName' do
+            coffeescript <<-JS
+              parameters: ["Member"]
+              returns: "String"
+              syntax: "Property"
+              execute: (member) ->
+                member.getName().toUpperCase()
+            JS
+          end
+          user_defined_function 'toUpperName' do
+            coffeescript <<-JS
+              parameters: ["Member", "String"]
+              returns: "String"
+              syntax: "Method"
+              execute: (member, dummy) ->
+                member.getName().toUpperCase()
+            JS
+          end
+        end
+        @olap = Mondrian::OLAP::Connection.create(CONNECTION_PARAMS.merge :schema => @schema)
+      end
+
+      it "should execute user defined function" do
+        result = @olap.from('Sales').columns('[Measures].[Factorial]').execute
+        value = 1*2*3*4*5*6
+        result.values.should == [value]
+        result.formatted_values.should == ["%020d" % value]
+      end
+
+      it "should format members and properties" do
+        result = @olap.from('Sales').columns('[Measures].[City]').rows('[Customers].[All Customers].Children').execute
+        result.row_members.each_with_index do |member, i|
+          member.caption.should == member.name.upcase
+          city = member.property_value('City')
+          result.formatted_values[i].first.should == city
+          member.property_formatted_value('City').should == city.upcase
+        end
+      end
+
+      it "should execute user defined property on member" do
+        result = @olap.from('Sales').
+          with_member('[Measures].[Upper Name]').as('[Customers].CurrentMember.UpperName').
+          columns('[Measures].[Upper Name]').rows('[Customers].Children').execute
+        result.row_members.each_with_index do |member, i|
+          result.values[i].should == [member.name.upcase]
+        end
+      end
+
+      it "should execute user defined method on member" do
+        result = @olap.from('Sales').
+          with_member('[Measures].[Upper Name]').as("[Customers].CurrentMember.toUpperName('dummy')").
+          columns('[Measures].[Upper Name]').rows('[Customers].Children').execute
+        result.row_members.each_with_index do |member, i|
+          result.values[i].should == [member.name.upcase]
+        end
+      end
+    end
+
+    describe "User defined functions and formatters in Ruby" do
+      before(:each) do
+        @schema.define do
+          cube 'Sales' do
+            table 'sales'
+            dimension 'Customers', :foreign_key => 'customer_id' do
+              hierarchy :has_all => true, :all_member_name => 'All Customers', :primary_key => 'id' do
+                table 'customers'
+                level 'Name', :column => 'fullname' do
+                  member_formatter { ruby {|member| member.getName().upcase } }
+                  property 'City', :column => 'city' do
+                    property_formatter { ruby {|member, property_name, property_value| property_value.upcase} }
+                  end
+                end
+              end
+            end
+            calculated_member 'Factorial' do
+              dimension 'Measures'
+              formula 'Factorial(6)'
+              cell_formatter { ruby {|value| "%020d" % value} }
+            end
+            calculated_member 'City' do
+              dimension 'Measures'
+              formula "[Customers].CurrentMember.Properties('City')"
+            end
+          end
+          user_defined_function 'Factorial' do
+            ruby do
+              parameters :numeric
+              returns :numeric
+              def call(n)
+                n <= 1 ? 1 : n * call(n - 1)
+              end
+            end
+          end
+          user_defined_function 'UpperName' do
+            ruby do
+              parameters :member
+              returns :string
+              syntax :property
+              def call(member)
+                member.getName.upcase
+              end
+            end
+          end
+          user_defined_function 'toUpperName' do
+            ruby do
+              parameters :member, :string
+              returns :string
+              syntax :method
+              def call(member, dummy)
+                member.getName.upcase
+              end
+            end
+          end
+          user_defined_function 'firstUpperName' do
+            ruby do
+              parameters :set
+              returns :string
+              syntax :property
+              def call(set)
+                set.first.getName.upcase
+              end
+            end
+          end
+          user_defined_function 'firstToUpperName' do
+            ruby do
+              parameters :set, :string
+              returns :string
+              syntax :method
+              def call(set, dummy)
+                set.first.getName.upcase
+              end
+            end
+          end
+          user_defined_function 'firstChildUpperName' do
+            ruby do
+              parameters :hierarchy
+              returns :string
+              syntax :property
+              def call_with_evaluator(evaluator, hierarchy)
+                evaluator.getSchemaReader.getMemberChildren(hierarchy.getDefaultMember).first.getName.upcase
+              end
+            end
+          end
+          user_defined_function 'firstLevelChildUpperName' do
+            ruby do
+              parameters :level
+              returns :string
+              syntax :property
+              def call_with_evaluator(evaluator, level)
+                evaluator.getSchemaReader.getLevelMembers(level, false).first.getName.upcase
+              end
+            end
+          end
+        end
+        @olap = Mondrian::OLAP::Connection.create(CONNECTION_PARAMS.merge :schema => @schema)
+      end
+
+      it "should execute user defined function" do
+        result = @olap.from('Sales').columns('[Measures].[Factorial]').execute
+        value = 1*2*3*4*5*6
+        result.values.should == [value]
+        result.formatted_values.should == ["%020d" % value]
+      end
+
+      it "should format members and properties" do
+        result = @olap.from('Sales').columns('[Measures].[City]').rows('[Customers].[All Customers].Children').execute
+        result.row_members.each_with_index do |member, i|
+          member.caption.should == member.name.upcase
+          city = member.property_value('City')
+          result.formatted_values[i].first.should == city
+          member.property_formatted_value('City').should == city.upcase
+        end
+      end
+
+      it "should execute user defined property on member" do
+        result = @olap.from('Sales').
+          with_member('[Measures].[Upper Name]').as('[Customers].CurrentMember.UpperName').
+          columns('[Measures].[Upper Name]').rows('[Customers].Children').execute
+        result.row_members.each_with_index do |member, i|
+          result.values[i].should == [member.name.upcase]
+        end
+      end
+
+      it "should execute user defined method on member" do
+        result = @olap.from('Sales').
+          with_member('[Measures].[Upper Name]').as("[Customers].CurrentMember.toUpperName('dummy')").
+          columns('[Measures].[Upper Name]').rows('[Customers].Children').execute
+        result.row_members.each_with_index do |member, i|
+          result.values[i].should == [member.name.upcase]
+        end
+      end
+
+      it "should execute user defined property on set" do
+        result = @olap.from('Sales').
+          with_member('[Measures].[Upper Name]').as("{[Customers].CurrentMember}.firstUpperName").
+          columns('[Measures].[Upper Name]').rows('[Customers].Children').execute
+        result.row_members.each_with_index do |member, i|
+          result.values[i].should == [member.name.upcase]
+        end
+      end
+
+      it "should execute user defined method on set" do
+        result = @olap.from('Sales').
+          with_member('[Measures].[Upper Name]').as("{[Customers].CurrentMember}.firstToUpperName('dummy')").
+          columns('[Measures].[Upper Name]').rows('[Customers].Children').execute
+        result.row_members.each_with_index do |member, i|
+          result.values[i].should == [member.name.upcase]
+        end
+      end
+
+      it "should execute user defined property on hierarchy" do
+        result = @olap.from('Sales').
+          with_member('[Measures].[Upper Name]').as("[Customers].firstChildUpperName").
+          columns('[Measures].[Upper Name]').rows('[Customers].Children').execute
+        first_member = result.row_members.first
+        result.row_members.each_with_index do |member, i|
+          result.values[i].should == [first_member.name.upcase]
+        end
+      end
+
+      it "should execute user defined property on level" do
+        result = @olap.from('Sales').
+          with_member('[Measures].[Upper Name]').as("[Customers].[Name].firstLevelChildUpperName").
+          columns('[Measures].[Upper Name]').rows('[Customers].Children').execute
+        first_member = result.row_members.first
+        result.row_members.each_with_index do |member, i|
+          result.values[i].should == [first_member.name.upcase]
+        end
+      end
+    end
+
+    describe "Shared user defined functions in Ruby" do
+      before(:each) do
+        shared_schema = Mondrian::OLAP::Schema.define do
+          user_defined_function 'Factorial' do
+            ruby :shared do
+              parameters :numeric
+              returns :numeric
+              def call(n)
+                n <= 1 ? 1 : n * call(n - 1)
+              end
+            end
+          end
+          user_defined_function 'UpperName' do
+            ruby :shared do
+              parameters :member
+              returns :string
+              syntax :property
+              def call(member)
+                member.getName.upcase
+              end
+            end
+          end
+          user_defined_function 'toUpperName' do
+            ruby :shared do
+              parameters :member, :string
+              returns :string
+              syntax :method
+              def call(member, dummy)
+                member.getName.upcase
+              end
+            end
+          end
+        end
+
+        @schema.define do
+          include_schema shared_schema
+
+          cube 'Sales' do
+            table 'sales'
+            dimension 'Customers', :foreign_key => 'customer_id' do
+              hierarchy :has_all => true, :all_member_name => 'All Customers', :primary_key => 'id' do
+                table 'customers'
+                level 'Name', :column => 'fullname'
+              end
+            end
+            calculated_member 'Factorial' do
+              dimension 'Measures'
+              formula 'Factorial(6)'
+            end
+          end
+        end
+        @olap = Mondrian::OLAP::Connection.create(CONNECTION_PARAMS.merge :schema => @schema)
+      end
+
+      it "should render XML" do
+        @schema.to_xml.should be_like <<-XML
+        <?xml version="1.0"?>
+        <Schema name="default">
+          <Cube name="Sales">
+            <Table name="sales"/>
+            <Dimension foreignKey="customer_id" name="Customers">
+              <Hierarchy allMemberName="All Customers" hasAll="true" primaryKey="id">
+                <Table name="customers"/>
+                <Level column="fullname" name="Name"/>
+              </Hierarchy>
+            </Dimension>
+            <CalculatedMember dimension="Measures" name="Factorial">
+              <Formula>Factorial(6)</Formula>
+            </CalculatedMember>
+          </Cube>
+          <UserDefinedFunction className="rubyobj.Mondrian.OLAP.Schema.UserDefinedFunction.FactorialUdf" name="Factorial"/>
+          <UserDefinedFunction className="rubyobj.Mondrian.OLAP.Schema.UserDefinedFunction.UppernameUdf" name="UpperName"/>
+          <UserDefinedFunction className="rubyobj.Mondrian.OLAP.Schema.UserDefinedFunction.TouppernameUdf" name="toUpperName"/>
+        </Schema>
+        XML
+      end
+
+      it "should execute user defined function" do
+        result = @olap.from('Sales').columns('[Measures].[Factorial]').execute
+        value = 1*2*3*4*5*6
+        result.values.should == [value]
+      end
+
+    end
+
+    describe "Roles" do
+      it "should render XML" do
+        @schema.define do
+          role 'California manager' do
+            schema_grant :access => 'none' do
+              cube_grant :cube => 'Sales', :access => 'all' do
+                dimension_grant :dimension => '[Measures]', :access => 'all'
+                hierarchy_grant :hierarchy => '[Customers]', :access => 'custom',
+                                :top_level => '[Customers].[State Province]', :bottom_level => '[Customers].[City]' do
+                  member_grant :member => '[Customers].[USA].[CA]', :access => 'all'
+                  member_grant :member => '[Customers].[USA].[CA].[Los Angeles]', :access => 'none'
+                end
+              end
+            end
+          end
+        end
+        @schema.to_xml.should be_like <<-XML
+        <?xml version="1.0"?>
+        <Schema name="default">
+          <Role name="California manager">
+            <SchemaGrant access="none">
+              <CubeGrant access="all" cube="Sales">
+                <DimensionGrant access="all" dimension="[Measures]"/>
+                <HierarchyGrant access="custom" bottomLevel="[Customers].[City]" hierarchy="[Customers]" topLevel="[Customers].[State Province]">
+                  <MemberGrant access="all" member="[Customers].[USA].[CA]"/>
+                  <MemberGrant access="none" member="[Customers].[USA].[CA].[Los Angeles]"/>
+                </HierarchyGrant>
+              </CubeGrant>
+            </SchemaGrant>
+          </Role>
+        </Schema>
+        XML
+      end
+    end
+
+  end
+
+  describe "connection with schema" do
+    before(:all) do
+      @schema = Mondrian::OLAP::Schema.define do
+        cube 'Sales' do
+          table 'sales'
+          dimension 'Gender', :foreign_key => 'customer_id' do
+            hierarchy :has_all => true, :primary_key => 'id' do
+              table 'customers'
+              level 'Gender', :column => 'gender', :unique_members => true
+            end
+          end
+          dimension 'Time', :foreign_key => 'time_id' do
+            hierarchy :has_all => false, :primary_key => 'id' do
+              table 'time'
+              level 'Year', :column => 'the_year', :type => 'Numeric', :unique_members => true
+              level 'Quarter', :column => 'quarter', :unique_members => false
+              level 'Month', :column => 'month_of_year', :type => 'Numeric', :unique_members => false
+            end
+          end
+          measure 'Unit Sales', :column => 'unit_sales', :aggregator => 'sum'
+          measure 'Store Sales', :column => 'store_sales', :aggregator => 'sum'
+        end
+      end
+      @olap = Mondrian::OLAP::Connection.create(CONNECTION_PARAMS.merge :schema => @schema)
+    end
+
+    it "should connect" do
+      @olap.should be_connected
+    end
+
+    it "should execute query" do
+      @olap.from('Sales').
+        columns('[Measures].[Unit Sales]', '[Measures].[Store Sales]').
+        rows('descendants([Time].[2010].[Q1])').
+        where('[Gender].[F]').
+        execute.should be_a(Mondrian::OLAP::Result)
+    end
+
+  end
+
+  describe "errors" do
+    before(:each) do
+      @schema = Mondrian::OLAP::Schema.new
+    end
+
+    it "should raise error when invalid schema" do
+      @schema.define do
+        cube 'Sales' do
+        end
+      end
+      expect {
+        Mondrian::OLAP::Connection.create(CONNECTION_PARAMS.merge :schema => @schema)
+      }.to raise_error {|e|
+        e.should be_kind_of(Mondrian::OLAP::Error)
+        e.message.should == "mondrian.olap.MondrianException: Mondrian Error:Internal error: Must specify fact table of cube 'Sales'"
+        e.root_cause_message.should == "Internal error: Must specify fact table of cube 'Sales'"
+      }
+    end
+
+    it "should raise error when invalid calculated member formula" do
+      @schema.define do
+        cube 'Sales' do
+          table 'sales'
+          calculated_member 'Dummy' do
+            dimension 'Measures'
+            formula 'Dummy(123)'
+          end
+        end
+      end
+      expect {
+        Mondrian::OLAP::Connection.create(CONNECTION_PARAMS.merge :schema => @schema)
+      }.to raise_error {|e|
+        e.should be_kind_of(Mondrian::OLAP::Error)
+        e.message.should == "mondrian.olap.MondrianException: Mondrian Error:Named set in cube 'Sales' has bad formula"
+        e.root_cause_message.should == "No function matches signature 'Dummy(<Numeric Expression>)'"
+      }
+    end
+
+  end
+
+end