Test for 0023497: Units package raises exception for composite units

diff --git a/tests/bugs/fclasses/bug23497 b/tests/bugs/fclasses/bug23497
new file mode 100644 (file)
index 0000000..524a538
--- /dev/null
+++ b/tests/bugs/fclasses/bug23497
@@ -0,0 +1,18 @@
+puts "TODO OCC23497 ALL: Exception"
+puts "TODO OCC23497 ALL: exception"
+
+puts "============"
+puts "OCC23497"
+puts "============"
+puts ""
+#######################################################################
+# Units package raises exception for composite units
+#######################################################################
+
+set UnitString "sq.km"
+
+if [catch {unitconvtoSI 1 ${UnitString}} res] {
+  puts "Error: Units package raises exception for composite units"
+} else {
+  puts "OK: Units package work good for composite unit"
+}