Changeset 560 for trunk/src/tcl/tests

Timestamp:

Dec 14, 2006 9:10:14 AM (17 years ago)

Author:

dkearney

Message:

updated the tcl units.tcl test file to reflect changes in the core units code

File:

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

trunk/src/tcl/tests/units.test

@@ -168 +168 @@
 test convert-1.8.0 {Rappture::Units::convert, convert undefined unit} {
     list [catch {Rappture::Units::convert 33Q -to nm } msg] $msg
-} {1 {unrecognized units: "Q"}}
+} {1 {Unrecognized units: "Q".
+Should be units of type length (A,in,m,nm)}}
 
 #----------------------------------------------------------
@@ -465 +466 @@
 test convert_units-5.4.4.2 {Rappture::Units::convert, cm2nZ/Vs->m2/us} {
     list [catch {Rappture::Units::convert 2cm2nZ/Vs -to m2/us} msg] $msg
-} {1 {unrecognized units: "cm2nZ/Vs"}}
+} {1 {Unrecognized units: "cm2nZ/Vs".
+Should be units of type length/time (/s,/us,A2,in2,m2)}}
 
 test convert_units-5.4.4.3 {Rappture::Units::convert, cm2/s->m2/kVus} {
     list [catch {Rappture::Units::convert 2cm2/s -to m2/kVus} msg] $msg
-} {1 {unmatched units in conversion: (kV-1)}}
+} {1 {unmatched units in conversion: (kV-1)
+Please enter units of type length/electric_potential*time (/V,/kV,/s,/us,A2,in2,m2)}}
 
 test convert_units-5.4.4.4 {Rappture::Units::convert, cm2/s->m2/uskV} {
     list [catch {Rappture::Units::convert 2cm2/s -to m2/uskV} msg] $msg
-} {1 {unmatched units in conversion: (kV-1)}}
+} {1 {unmatched units in conversion: (kV-1)
+Please enter units of type length/time*electric_potential (/V,/kV,/s,/us,A2,in2,m2)}}
 
 test convert_units-5.4.4.5 {Rappture::Units::convert, cm2V/s->m2/us} {
     list [catch {Rappture::Units::convert 2cm2V/s -to m2/us} msg] $msg
-} {1 {unmatched units in conversion: (V1)}}
+} {1 {unmatched units in conversion: (V)
+Please enter units of type length/time (/s,/us,A2,in2,m2)}}
 
 test convert_units-5.4.4.6 {Rappture::Units::convert, cm2V/s->m2/us} {
     list [catch {Rappture::Units::convert 2cm2V/s -to m2/us} msg] $msg
-} {1 {unmatched units in conversion: (V1)}}
+} {1 {unmatched units in conversion: (V)
+Please enter units of type length/time (/s,/us,A2,in2,m2)}}
 
 test convert_units-5.4.4.7 {Rappture::Units::convert, cm2V->m2} {
     list [catch {Rappture::Units::convert 2cm2V -to m2} msg] $msg
-} {1 {unmatched units in conversion: (V1)}}
+} {1 {unmatched units in conversion: (V)
+Please enter units of type length (A2,in2,m2)}}
 
 test convert_units-5.4.4.8 {Rappture::Units::convert, Vcm2->m2} {
     list [catch {Rappture::Units::convert 2Vcm2 -to m2} msg] $msg
-} {1 {unmatched units in conversion: (V1)}}
+} {1 {unmatched units in conversion: (V)
+Please enter units of type length (A2,in2,m2)}}
 
 test convert_units-5.4.4.9 {Rappture::Units::convert, cm2->Vm2} {
     list [catch {Rappture::Units::convert 2cm2 -to Vm2} msg] $msg
-} {1 {unmatched units in conversion: (V1)}}
+} {1 {unmatched units in conversion: (V)
+Please enter units of type electric_potential*length (A2,V,in2,m2)}}
 
 test convert_units-5.4.4.10 {Rappture::Units::convert, cm2->m2V} {
     list [catch {Rappture::Units::convert 2cm2 -to m2V} msg] $msg
-} {1 {unmatched units in conversion: (V1)}}
+} {1 {unmatched units in conversion: (V)
+Please enter units of type length*electric_potential (A2,V,in2,m2)}}
 
 test convert_units-5.4.4.11 {Rappture::Units::convert, cm2A->Vm2} {
     list [catch {Rappture::Units::convert 2cm2A -to Vm2} msg] $msg
-} {1 {unmatched units in conversion: (A1) -> (V1)}}
+} {1 {unmatched units in conversion: (A) -> (V)
+Please enter units of type electric_potential*length (A2,V,in2,m2)}}
 
 test convert_units-5.4.4.12 {Rappture::Units::convert, cm2A->m2V} {
     list [catch {Rappture::Units::convert 2cm2A -to m2V} msg] $msg
-} {1 {conversion unavailable: (A1) -> (V1)}}
+} {1 {Conversion unavailable: (A) -> (V)
+Please enter units of type length*electric_potential (A2,V,in2,m2)}}
 
 test convert_units-5.4.4.13 {Rappture::Units::convert, Acm2->Vm2} {
     list [catch {Rappture::Units::convert 2Acm2 -to Vm2} msg] $msg
-} {1 {unmatched units in conversion: (A1) -> (V1)}}
+} {1 {unmatched units in conversion: (A) -> (V)
+Please enter units of type electric_potential*length (A2,V,in2,m2)}}
 
 test convert_units-5.4.4.14 {Rappture::Units::convert, Acm2->m2V} {
     list [catch {Rappture::Units::convert 2Acm2 -to m2V} msg] $msg
-} {1 {conversion unavailable: (A1) -> (V1)}}
+} {1 {Conversion unavailable: (A) -> (V)
+Please enter units of type length*electric_potential (A2,V,in2,m2)}}
 
 #--------------------------------------------------------------------
@@ -525 +539 @@
 test convert_units-5.4.5.1 {Rappture::Units::convert, cm2->/m2} {
     list [catch {Rappture::Units::convert 1cm -to /m2} msg] $msg
-} {1 {conversion unavailable: (cm1) -> (m-2)}}
+} {1 {Conversion unavailable: (cm) -> (m-2)
+Please enter units of type /length (/A2,/in2,/m2)}}
 
 #--------------------------------------------------------------------
@@ -785 +800 @@
 test convert_units-5.4.10.1 {Rappture::Units::convert, torr->mmhg} {
     list [catch {Rappture::Units::convert 5torr -to mmhg} msg] $msg
-} {0 5mmhg}
+} {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}
+} {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}
+} {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}
+} {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}
+} {0 2e-07m2/kVus}
 
 #--------------------------------------------------------------------