tests/testModels.pl


1
2
3
4
5
6
7
8
9
10
11
12

#!/bin/env perl

use strict;
use xkbTestFunc;

backupXkbSettings();
                                                                                                                 
dumpXkbSettings( $origXkbRules, $origXkbModel, $origXkbLayouts, $origXkbVariants, $origXkbOptions );
                                                                                                                 
testLevel1( "model", 1 );

restoreXkbSettings();