From 3b913e0be63cc45cf87b6ea2b2b501558405aea4 Mon Sep 17 00:00:00 2001
From: svu <svu>
Date: Fri, 7 May 2004 18:27:21 +0000
Subject: Some small fixes made. Options are now testable as well.

---
 tests/testLayouts.pl |  2 +-
 tests/testOptions.pl |  2 +-
 tests/xkbTestFunc.pm | 10 +++++++++-
 3 files changed, 11 insertions(+), 3 deletions(-)

(limited to 'tests')

diff --git a/tests/testLayouts.pl b/tests/testLayouts.pl
index bcb657b1..9d996a76 100755
--- a/tests/testLayouts.pl
+++ b/tests/testLayouts.pl
@@ -8,6 +8,6 @@ xkbTestFunc::backupXkbSettings();
                                                                                                                  
 xkbTestFunc::dumpXkbSettingsBackup();
 
-xkbTestFunc::testLevel2( "layout", "variant", 2, "(", ")", 1, 1 );
+xkbTestFunc::testLevel2( "layout", "variant", 2, "(", ")", 1, 1, 0 );
 
 xkbTestFunc::restoreXkbSettings();
diff --git a/tests/testOptions.pl b/tests/testOptions.pl
index c8805794..ec45a06b 100755
--- a/tests/testOptions.pl
+++ b/tests/testOptions.pl
@@ -8,6 +8,6 @@ xkbTestFunc::backupXkbSettings();
                                                                                                                  
 xkbTestFunc::dumpXkbSettingsBackup();
 
-xkbTestFunc::testLevel2( "group", "option", 4, ":", "", 0, 0 );
+xkbTestFunc::testLevel2( "group", "option", 4, ":", "", 0, 0, 1 );
 
 xkbTestFunc::restoreXkbSettings();
diff --git a/tests/xkbTestFunc.pm b/tests/xkbTestFunc.pm
index d78c16d4..8d511210 100755
--- a/tests/xkbTestFunc.pm
+++ b/tests/xkbTestFunc.pm
@@ -98,7 +98,7 @@ sub testLevel1
 
 sub testLevel2
 {
-  my ( $type, $subtype, $idx, $delim1, $delim2, $ifCheckLevel1, $ifAddLevel1 ) = @_;
+  my ( $type, $subtype, $idx, $delim1, $delim2, $ifCheckLevel1, $ifAddLevel1, $ifResetToDefault ) = @_;
 
   open ( XSLTPROC, "xsltproc --stringparam type $type listCIs.xsl ../rules/base.xml.in |" ) or
     die ( "Could not start xsltproc" );
@@ -113,6 +113,10 @@ sub testLevel2
       if ( $ifCheckLevel1 )
       {
         my @params = defaultXkbSettings();
+        if ( $ifResetToDefault )
+        {
+          setXkbSettings ( @params );
+        }
         $params[$idx] = "$paramValue";
         dumpXkbSettings ( @params );
         setXkbSettings ( @params );
@@ -130,6 +134,10 @@ sub testLevel2
           my $paramValue2=$1;
           print "  --- $subtype: [$paramValue2]\n";
           my @params = defaultXkbSettings();
+          if ( $ifResetToDefault )
+          {
+            setXkbSettings ( @params );
+          }
           if ( $ifAddLevel1 )
           {
             $params[$idx] = "$paramValue$delim1$paramValue2$delim2";
-- 
cgit v1.2.3