Changeset 549 for trunk/src/tcl/tests

Timestamp:

Dec 7, 2006 3:45:47 AM (17 years ago)

Author:

dkearney

Message:

added function Rappture::Units::Search::for which takes in a string and searches for and returns units if they exist. the returned units will be valid rappture units

File:

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

trunk/src/tcl/tests/units.test

@@ -4 +4 @@
 #   Rappture::Units::System::for
 #   Rappture::Units::System::all
+#   Rappture::Units::Search::for
 #
 # This file contains a collection of tests for one of the Rappture Tcl
@@ -802 +803 @@
 } {0 2e-07M2/KVUS}
 
+#--------------------------------------------------------------------
+# Rappture::Units::Search::for <units>
+#--------------------------------------------------------------------
+
+test search-for-6.0.0.1 {Rappture::Units::Search::for, 300K} {
+    list [catch {Rappture::Units::Search::for 300K} msg] $msg
+} {0 K}
+
+test search-for-6.0.0.2 {Rappture::Units::Search::for, 300cm2/Vs} {
+    list [catch {Rappture::Units::Search::for 300cm2/Vs} msg] $msg
+} {0 cm2/Vs}
+
+test search-for-6.0.0.3 {Rappture::Units::Search::for, cm2/Vs} {
+    list [catch {Rappture::Units::Search::for cm2/Vs} msg] $msg
+} {0 cm2/Vs}
+
+test search-for-6.0.1.1 {Rappture::Units::Search::for, 4notaunit} {
+    list [catch {Rappture::Units::Search::for 4notaunit} msg] $msg
+} {0 {}}
+
+test search-for-6.0.1.2 {Rappture::Units::Search::for, notaunit} {
+    list [catch {Rappture::Units::Search::for notaunit} msg] $msg
+} {0 {}}
+
+test search-for-6.0.1.2 {Rappture::Units::Search::for, notaunit} {
+    list [catch {Rappture::Units::Search::for ^&} msg] $msg
+} {0 {}}
 
 ::tcltest::cleanupTests