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

Timestamp:

Apr 28, 2008, 7:34:20 AM (16 years ago)

Author:

Tatsukawa, Akimichi

Message:

parsing c_any fails

File:

• ruby/trunk/adl_parser/tests/scanner_test.rb (modified) (1 diff)

ruby/trunk/adl_parser/tests/scanner_test.rb

@@ -12 +12 @@
     parser = OpenEHR::ADL::Scanner::DADL::V_LOCAL_TERM_CODE_REF.new
     assert_instance_of OpenEHR::ADL::Scanner::DADL::V_LOCAL_TERM_CODE_REF,parser
-    result = parser.parse('')
+    result = parser.parse('[en-us]')
+    assert_instance_of Yaparc::Result::OK, result
+  end
+
+  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
+    result = parser.parse('[ISO_639::en]')
+    assert_instance_of Yaparc::Result::OK, result
+    result = parser.parse('[ISO_639::en-us]')
+    assert_instance_of Yaparc::Result::OK, result
+  end
+
+  def test_V_STRING
+    parser = OpenEHR::ADL::Scanner::DADL::V_STRING.new
+    assert_instance_of OpenEHR::ADL::Scanner::DADL::V_STRING,parser
+    result = parser.parse('"this is a string"')
+    assert_instance_of Yaparc::Result::OK, result
+    result = parser.parse('"en-us"')
+    assert_instance_of Yaparc::Result::OK, result
+  end
+
+  def test_V_REAL
+    parser = OpenEHR::ADL::Scanner::DADL::V_REAL.new
+    assert_instance_of OpenEHR::ADL::Scanner::DADL::V_REAL,parser
+    result = parser.parse('0.1')
+    assert_instance_of Yaparc::Result::OK, result
+    result = parser.parse('0.0..20000.0')
+    assert_instance_of Yaparc::Result::OK, result
+    assert_equal [:V_REAL, "0.0"], result.value
+    assert_equal "..20000.0", result.input
+
   end
 end