diff options
Diffstat (limited to 'tests')
-rw-r--r-- | tests/testModels.pl | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/tests/testModels.pl b/tests/testModels.pl index 7a7cdba..aaed2a8 100644 --- a/tests/testModels.pl +++ b/tests/testModels.pl @@ -101,6 +101,13 @@ sub testLevel2 my $paramValue=$1; print "--- scanning $type: [$paramValue]\n"; + my @params = defaultXkbSettings(); + @params[$idx] = "$paramValue"; + dumpXkbSettings ( @params ); + setXkbSettings ( @params ); + #print "--- dump:\n"; + #dumpXkbSettings( getXkbSettings() ); + open ( XSLTPROC2, "xsltproc --stringparam type $subtype --stringparam parentId $paramValue listCI2.xsl ../rules/base.xml.in |" ) or die ( "Could not start xsltproc" ); while (<XSLTPROC2>) |