cql_sql_spec.rb in activefacts-0.8.5

- old
+ new

@@ -1,31 +1,41 @@
 #
 # ActiveFacts tests: Parse all CQL files and check the generated SQL.
 # Copyright (c) 2008 Clifford Heath. Read the LICENSE file.
 #
-require 'rubygems'
+
+require 'spec/spec_helper'
 require 'stringio'
 require 'activefacts/vocabulary'
 require 'activefacts/support'
 require 'activefacts/input/cql'
 require 'activefacts/generate/sql/server'
 
 include ActiveFacts
 include ActiveFacts::Metamodel
 
 describe "CQL Loader with SQL output" do
-  CQL_SQL_FAILURES = %w{
-    Airline
-    CompanyDirectorEmployee
-    CompanyQuery
-    Insurance
-    JoinEquality
-    Marriage
-    OrienteeringER
-    ServiceDirector
-    SimplestUnary
+  cql_failures = {
+    "Airline" => "Contains unsupported queries",
+    "CompanyQuery" => "Contains unsupported queries",
+    "OrienteeringER" => "Large fact type reading cannot be matched",
+    "ServiceDirector" => "Constraints contain adjectives that require looser matching",
   }
+  cql_sql_failures = {
+    "Blog" => "Drops uniqueness constraints",
+    "CompanyDirectorEmployee" => "Names an index automatically from CQL, but explicitly from NORMA",
+    "Insurance" => "CQL doesn't have an option for subtype separation",
+    "Metamodel" =>
+        "Names an index automatically from CQL, but explicitly from NORMA" + " " +
+        "Drops uniqueness constraints",
+    "Orienteering" =>
+        "Names an index automatically from CQL, but explicitly from NORMA" + " " +
+        "Drops uniqueness constraints",
+    "RedundantDependency" => "Drops uniqueness constraints",
+    "SubtypePI" => "Names an index automatically from CQL, but explicitly from NORMA",
+    "Tests.Test5.Load" => "Names an index automatically from CQL, but explicitly from NORMA",
+  }
 
   # Generate and return the SQL for the given vocabulary
   def sql(vocabulary)
     output = StringIO.new
     @dumper = ActiveFacts::Generate::SQL::SERVER.new(vocabulary.constellation, "norma")
@@ -38,18 +48,34 @@
   Dir["examples/CQL/#{pattern}.cql"].each do |cql_file|
     actual_file = cql_file.sub(%r{examples/CQL/(.*).cql}, 'spec/actual/\1.sql')
     expected_file = cql_file.sub(%r{examples/CQL/(.*).cql\Z}, 'examples/SQL/\1.sql')
 
     it "should load #{cql_file} and dump SQL matching #{expected_file}" do
-      pending if CQL_SQL_FAILURES.include? File.basename(cql_file, ".cql")
-      vocabulary = ActiveFacts::Input::CQL.readfile(cql_file)
+      vocabulary = nil
+      broken = cql_failures[File.basename(cql_file, ".cql")]
+      if broken
+        pending(broken) {
+          vocabulary = ActiveFacts::Input::CQL.readfile(cql_file)
+        }
+      else
+        vocabulary = ActiveFacts::Input::CQL.readfile(cql_file)
+      end
 
       # Build and save the actual file:
       sql_text = sql(vocabulary)
       File.open(actual_file, "w") { |f| f.write sql_text }
 
-      pending unless File.exists? expected_file
-      sql_text.should == File.open(expected_file) {|f| f.read }
-      File.delete(actual_file)  # It succeeded, we don't need the file.
+      pending("expected output file #{expected_file} not found") unless File.exists? expected_file
+
+      expected_text = File.open(expected_file) {|f| f.read }
+      broken = cql_sql_failures[File.basename(cql_file, ".cql")]
+      if broken
+        pending(broken) {
+          sql_text.should_not differ_from(expected_text)
+        }
+      else
+        sql_text.should_not differ_from(expected_text)
+        File.delete(actual_file)  # It succeeded, we don't need the file.
+      end
     end
   end
 end