mondrian 0.0.1

data/lib/mondrian/schema_element.rb

@@ -0,0 +1,151 @@
+require 'nokogiri'
+
+module Mondrian
+  class SchemaElement
+    def initialize(name = nil, attributes = {}, &block)
+      # if just attributes hash provided
+      if name.is_a?(Hash) && attributes == {}
+        attributes = name
+        name = nil
+      end
+      @attributes = {}
+      if name
+        if self.class.content
+          @content = name
+        else
+          @attributes[:name] = name
+        end
+      end
+      @attributes.merge!(attributes)
+      self.class.elements.each do |element|
+        instance_variable_set("@#{pluralize(element)}", [])
+      end
+      @xml_fragments = []
+      instance_eval &block if block
+    end
+
+    def self.attributes(*names)
+      names.each do |name|
+        class_eval <<-RUBY, __FILE__, __LINE__ + 1
+            def #{name}(*args)
+              if args.empty?
+                @attributes[:#{name}]
+              elsif args.size == 1
+                @attributes[:#{name}] = args[0]
+              else
+                raise ArgumentError, "too many arguments"
+              end
+            end
+        RUBY
+      end
+    end
+
+    def self.data_dictionary_names(*names)
+      return @data_dictionary_names || [] if names.empty?
+      @data_dictionary_names ||= []
+      @data_dictionary_names.concat(names)
+    end
+
+    def self.elements(*names)
+      return @elements || [] if names.empty?
+
+      @elements ||= []
+      @elements.concat(names)
+
+      names.each do |name|
+        attr_reader pluralize(name).to_sym
+        class_eval <<-RUBY, __FILE__, __LINE__ + 1
+            def #{name}(name=nil, attributes = {}, &block)
+              @#{pluralize(name)} << Schema::#{camel_case(name)}.new(name, attributes, &block)
+            end
+        RUBY
+      end
+    end
+
+    def self.content(type=nil)
+      return @content if type.nil?
+      @content = type
+    end
+
+    attr_reader :xml_fragments
+    def xml(string)
+      string = string.strip
+      fragment = Nokogiri::XML::DocumentFragment.parse(string)
+      raise ArgumentError, "Invalid XML fragment:\n#{string}" if fragment.children.empty?
+      @xml_fragments << string
+    end
+
+    def to_xml(options={})
+      options[:upcase_data_dictionary] = @upcase_data_dictionary unless @upcase_data_dictionary.nil?
+      Nokogiri::XML::Builder.new do |xml|
+        add_to_xml(xml, options)
+      end.to_xml
+    end
+
+    protected
+
+    def add_to_xml(xml, options)
+      if self.class.content
+        xml.send(tag_name(self.class.name), @content, xmlized_attributes(options))
+      else
+        xml.send(tag_name(self.class.name), xmlized_attributes(options)) do
+          self.class.elements.each do |element|
+            instance_variable_get("@#{pluralize(element)}").each {|item| item.add_to_xml(xml, options)}
+          end
+          @xml_fragments.each do |xml_fragment|
+            xml.send(:insert, Nokogiri::XML::DocumentFragment.parse(xml_fragment))
+          end
+        end
+      end
+    end
+
+    private
+
+    def xmlized_attributes(options)
+      # data dictionary values should be in uppercase if schema defined with :upcase_data_dictionary => true
+      # or by default when using Oracle or LucidDB driver (can be overridden by :upcase_data_dictionary => false)
+      upcase_attributes = if options[:upcase_data_dictionary].nil? && %w(oracle luciddb).include?(options[:driver]) ||
+                            options[:upcase_data_dictionary]
+        self.class.data_dictionary_names
+                          else
+                            []
+                          end
+      hash = {}
+      @attributes.each do |attr, value|
+        value = value.upcase if upcase_attributes.include?(attr)
+        hash[
+          # camelcase attribute name
+          attr.to_s.gsub(/_([^_]+)/){|m| $1.capitalize}
+        ] = value
+      end
+      hash
+    end
+
+    def self.pluralize(string)
+      string = string.to_s
+      case string
+      when /^(.*)y$/
+        "#{$1}ies"
+      else
+        "#{string}s"
+      end
+    end
+
+    def pluralize(string)
+      self.class.pluralize(string)
+    end
+
+    def self.camel_case(string)
+      string.to_s.split('_').map{|s| s.capitalize}.join('')
+    end
+
+    def camel_case(string)
+      self.class.camel_case(string)
+    end
+
+    def tag_name(string)
+      string.split('::').last << '_'
+    end
+  end
+
+end

data/lib/mondrian/version.rb

@@ -0,0 +1,3 @@
+module Mondrian
+  VERSION = "0.0.1"
+end

data/mondrian.gemspec

@@ -0,0 +1,19 @@
+# -*- encoding: utf-8 -*-
+require File.expand_path('../lib/mondrian/version', __FILE__)
+
+Gem::Specification.new do |gem|
+  gem.authors       = ["stellard"]
+  gem.email         = ["scott.ellard@gmail.com"]
+  gem.description   = %q{Schema DSL for mondrian}
+  gem.summary       = %q{Ruby DSL for Mondrian Schema Definitions, Based on https://github.com/rsim/mondrian-olap}
+  gem.homepage      = "https://github.com/kujilabs/mondrian"
+
+  gem.files         = `git ls-files`.split($\)
+  gem.executables   = gem.files.grep(%r{^bin/}).map{ |f| File.basename(f) }
+  gem.test_files    = gem.files.grep(%r{^(test|spec|features)/})
+  gem.name          = "mondrian"
+  gem.require_paths = ["lib"]
+  gem.version       = Mondrian::VERSION
+  
+  gem.add_dependency 'nokogiri', '~> 1.5.0'
+end

data/spec/mondrian/schema_spec.rb

@@ -0,0 +1,642 @@
+require "spec_helper"
+
+describe Mondrian::Schema do
+
+  describe "elements" do
+    before(:each) do
+      @schema = Mondrian::Schema.new
+    end
+
+    describe "root element" do
+      it "should render to XML" do
+        @schema.to_xml.should be_equivalent_to <<-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_equivalent_to <<-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::Schema.define('FoodMart')
+        schema.to_xml.should be_equivalent_to <<-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_equivalent_to <<-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_equivalent_to <<-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_equivalent_to <<-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_equivalent_to <<-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_equivalent_to <<-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_equivalent_to <<-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_equivalent_to <<-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_equivalent_to <<-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_equivalent_to <<-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_equivalent_to <<-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_equivalent_to <<-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_equivalent_to <<-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_equivalent_to <<-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_equivalent_to <<-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_equivalent_to <<-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_equivalent_to <<-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_equivalent_to <<-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_equivalent_to <<-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_equivalent_to <<-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_equivalent_to <<-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_equivalent_to <<-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
+  end
+end