Changeset 19 for ruby/trunk/adl_parser/tests/scanner_test.rb

Timestamp:

Apr 29, 2008, 3:04:36 AM (16 years ago)

Author:

Tatsukawa, Akimichi

Message:

successful parsing 25 archtypes

File:

• ruby/trunk/adl_parser/tests/scanner_test.rb (modified) (5 diffs)

ruby/trunk/adl_parser/tests/scanner_test.rb

@@ -10 +10 @@
 
   def test_V_LOCAL_TERM_CODE_REF
-    parser = OpenEHR::ADL::Scanner::DADL::V_LOCAL_TERM_CODE_REF.new
-    assert_instance_of OpenEHR::ADL::Scanner::DADL::V_LOCAL_TERM_CODE_REF,parser
+    parser = OpenEHR::ADL::Scanner::Common::V_LOCAL_TERM_CODE_REF.new
+    assert_instance_of OpenEHR::ADL::Scanner::Common::V_LOCAL_TERM_CODE_REF,parser
     result = parser.parse('[en-us]')
     assert_instance_of Yaparc::Result::OK, result
@@ -17 +17 @@
 
   def test_V_QUALIFIED_TERM_CODE_REF
-    parser = OpenEHR::ADL::Scanner::DADL::V_QUALIFIED_TERM_CODE_REF.new
-    assert_instance_of OpenEHR::ADL::Scanner::DADL::V_QUALIFIED_TERM_CODE_REF,parser
+    parser = OpenEHR::ADL::Scanner::Common::V_QUALIFIED_TERM_CODE_REF.new
+    assert_instance_of OpenEHR::ADL::Scanner::Common::V_QUALIFIED_TERM_CODE_REF,parser
     result = parser.parse('[ISO_639::en]')
     assert_instance_of Yaparc::Result::OK, result
@@ -26 +26 @@
 
   def test_V_STRING
-    parser = OpenEHR::ADL::Scanner::DADL::V_STRING.new
-    assert_instance_of OpenEHR::ADL::Scanner::DADL::V_STRING,parser
+    parser = OpenEHR::ADL::Scanner::Common::V_STRING.new
+    assert_instance_of OpenEHR::ADL::Scanner::Common::V_STRING,parser
     result = parser.parse('"this is a string"')
     assert_instance_of Yaparc::Result::OK, result
@@ -35 +35 @@
 
   def test_V_REAL
-    parser = OpenEHR::ADL::Scanner::DADL::V_REAL.new
-    assert_instance_of OpenEHR::ADL::Scanner::DADL::V_REAL,parser
+    parser = OpenEHR::ADL::Scanner::Common::V_REAL.new
+    assert_instance_of OpenEHR::ADL::Scanner::Common::V_REAL,parser
     result = parser.parse('0.1')
     assert_instance_of Yaparc::Result::OK, result
@@ -43 +43 @@
     assert_equal [:V_REAL, "0.0"], result.value
     assert_equal "..20000.0", result.input
+  end
 
+  def test_V_ISO8601_DURATION
+    parser = OpenEHR::ADL::Scanner::Common::V_ISO8601_DURATION.new
+    assert_instance_of OpenEHR::ADL::Scanner::Common::V_ISO8601_DURATION,parser
+    result = parser.parse('PT1M')
+    assert_instance_of Yaparc::Result::OK, result
   end
+
+  def test_V_ISO8601_DATE_TIME_CONSTRAINT_PATTERN
+    parser = OpenEHR::ADL::Scanner::CADL::V_ISO8601_DATE_TIME_CONSTRAINT_PATTERN.new
+    assert_instance_of OpenEHR::ADL::Scanner::CADL::V_ISO8601_DATE_TIME_CONSTRAINT_PATTERN,parser
+    result = parser.parse('yyyy-??-??T??:??:??')
+    assert_instance_of Yaparc::Result::OK, result
+  end
+
+  def test_V_ISO8601_DATE_CONSTRAINT_PATTERN
+    parser = OpenEHR::ADL::Scanner::CADL::V_ISO8601_DATE_CONSTRAINT_PATTERN.new
+    assert_instance_of OpenEHR::ADL::Scanner::CADL::V_ISO8601_DATE_CONSTRAINT_PATTERN,parser
+    result = parser.parse('yyyy-mm-XX-dd')
+    assert_instance_of Yaparc::Result::OK, result
+  end
+
+  def test_V_ISO8601_TIME_CONSTRAINT_PATTERN
+    parser = OpenEHR::ADL::Scanner::CADL::V_ISO8601_TIME_CONSTRAINT_PATTERN.new
+    assert_instance_of OpenEHR::ADL::Scanner::CADL::V_ISO8601_TIME_CONSTRAINT_PATTERN,parser
+    result = parser.parse('hh:mm:ss:??')
+    assert_instance_of Yaparc::Result::OK, result
+  end
+
+  def test_dadl_reserved
+    parser = OpenEHR::ADL::Scanner::DADL::RootScanner.new
+    result = parser.parse('then')
+    assert_instance_of Yaparc::Result::OK, result
+    result = parser.parse('infinity')
+    assert_instance_of Yaparc::Result::OK, result
+    assert_equal [:SYM_INFINITY, :SYM_INFINITY], result.value
+  end
+
+  def test_cadl
+    parser = OpenEHR::ADL::Scanner::CADL::RootScanner.new
+    assert_instance_of OpenEHR::ADL::Scanner::CADL::RootScanner,parser
+    result = parser.parse('PT1M')
+    assert_instance_of Yaparc::Result::OK, result
+    assert_equal [:V_ISO8601_DURATION, "PT1M"], result.value
+  end
+
+  def test_cadl_reserved
+    parser = OpenEHR::ADL::Scanner::CADL::RootScanner.new
+    result = parser.parse('then')
+    assert_instance_of Yaparc::Result::OK, result
+    result = parser.parse('cardinality')
+    assert_instance_of Yaparc::Result::OK, result
+    assert_equal [:SYM_CARDINALITY, :SYM_CARDINALITY], result.value
+    result = parser.parse('ordered')
+    assert_instance_of Yaparc::Result::OK, result
+    assert_equal "", result.input
+    assert_equal [:SYM_ORDERED, :SYM_ORDERED], result.value
+  end
+
+  
 end