Changeset 545 for trunk/src/tcl

Timestamp:

Nov 19, 2006, 6:12:50 PM (18 years ago)

Author:

dkearney

Message:

updated tests for case insensitive units replaced ff tests with xx because ff is recognized as lowecase F (fahrenheit)

File:

• trunk/src/tcl/tests/units.test (modified) (3 diffs)

trunk/src/tcl/tests/units.test

@@ -78 +78 @@
 test convert-1.3.2.2 {Rappture::Units::convert, -context invalid} {
 # this test passes for new tcl bindings, fails for old tcl version
-    list [catch {Rappture::Units::convert 5m -context ff} msg] $msg
-} {1 {bad value "ff": should be a recognized unit for Rappture}}
+    list [catch {Rappture::Units::convert 5m -context xx} msg] $msg
+} {1 {bad value "xx": should be a recognized unit for Rappture}}
 
 test convert-1.4.0 {Rappture::Units::convert, -to blank} {
@@ -102 +102 @@
 test convert-1.4.2.2 {Rappture::Units::convert, -to invalid} {
 # this test passes for new tcl bindings, fails for old tcl version
-    list [catch {Rappture::Units::convert 5m -to ff} msg] $msg
-} {1 {bad value "ff": should be a recognized unit for Rappture}}
+    list [catch {Rappture::Units::convert 5m -to xx} msg] $msg
+} {1 {bad value "xx": should be a recognized unit for Rappture}}
 
 #test convert-1.5.0 {Rappture::Units::convert, -units blank} {
@@ -778 +778 @@
 } {0 5mmHg}
 
-
-
+#--------------------------------------------------------------------
+# Case Insensitive/Sensitive Unit Conversions
+#--------------------------------------------------------------------
+
+test convert_units-5.4.10.1 {Rappture::Units::convert, torr->mmhg} {
+    list [catch {Rappture::Units::convert 5torr -to mmhg} msg] $msg
+} {0 5mmhg}
+
+test convert_units-5.4.10.2 {Rappture::Units::convert, ToRr->mmhg} {
+    list [catch {Rappture::Units::convert 5ToRr -to mmhg} msg] $msg
+} {0 5mmhg}
+
+test convert_units-5.4.10.3 {Rappture::Units::convert, kpa->PSI} {
+    list [catch {Rappture::Units::convert 5kpa -to PSI} msg] $msg
+} {0 0.7252PSI}
+
+test convert_units-5.4.10.4 {Rappture::Units::convert, KPA->PsI} {
+    list [catch {Rappture::Units::convert 5KPA -to PsI} msg] $msg
+} {0 0.7252PsI}
+
+test convert_units-5.4.10.5 {Rappture::Units::convert, Cm2/vS->M2/KVUS} {
+    list [catch {Rappture::Units::convert 2Cm2/vS -to M2/KVUS} msg] $msg
+} {0 2e-07M2/KVUS}