146185892Smrg#!/usr/bin/env perl 246185892Smrg 346185892Smrguse strict; 446185892Smrguse warnings; 546185892Smrguse xkbTestFunc; 646185892Smrg 746185892SmrgxkbTestFunc::backupXkbSettings(); 846185892Smrg 946185892SmrgxkbTestFunc::dumpXkbSettingsBackup(); 1046185892Smrg 1146185892SmrgxkbTestFunc::testLevel2( "group", "option", 4, ":", "", 0, 0, 1 ); 1246185892Smrg 1346185892SmrgxkbTestFunc::restoreXkbSettings(); 1446185892Smrg 1546185892Smrgprint "Done!\n"; 16