0027146: Create command checkplatform

[occt.git] / tests / bugs / xde / bug22898

diff --git a/tests/bugs/xde/bug22898 b/tests/bugs/xde/bug22898
index b1972c9..e6bbf4f 100644 (file)
--- a/tests/bugs/xde/bug22898
+++ b/tests/bugs/xde/bug22898
@@ -4,8 +4,7 @@ puts "TODO OCC24156 MacOS: Error: unsupported locale specification"
 # Just run multiple conversions of the shape to and from diferent formats and 
 # check that the result is good shape with expected area
 
-set anOS $tcl_platform(os)
-if { ${anOS} == "Linux" } {
+if { [checkplatform -linux] } {
   dlocale LC_ALL fr_FR
 } else {
   dlocale LC_ALL French