diff options
| author | svu <svu> | 2004-05-02 23:05:57 +0000 |
|---|---|---|
| committer | svu <svu> | 2004-05-02 23:05:57 +0000 |
| commit | ca65bc0f734a70704122234afc0269a72503f45d (patch) | |
| tree | 2bbed80d90faf92e44d5913da1a5ee8db1f60deb /tests | |
| parent | 41bcb8d67c31d87591578326fddd8c090515ea5c (diff) | |
at least variants pass ok with tests
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 7a7cdbac..aaed2a87 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>) |