B/t/concise.t

89 like ($@, qr/expecting 3 style-format args/,
99 like ($@, qr/style 'junk' already exists, choose a new name/,
100     "add_style correctly disallows re-adding same style-name" );
105 is ($@, '', "set_style accepts 3 style-format args");
107 @stylespec = (); # bad style
110 like ($@, qr/expecting 3 style-format args/,
111       "set_style rejects bad style-format args");
241 for $style (@styles) {
245         $walker->($style, $mode);
246         $combos{"$style$mode"} = $sample;
260     for $style (@styles) {
263         $walker->($mode, $style);
264         $combos{"$mode$style"} = $sample;
269     for $style (@styles) {
270         is ( $combos{"$style$mode"},
271              $combos{"$mode$style"},
272              "results for $style$mode vs $mode$style are the same" );
277 %combos = ();	# outputs for $mode=any($order) and any($style)
280 for $style (@styles) {
283     $walker->($style);
288         $combos{"$style/$mode"} = $sample;
305     for $style (@styles) {
308         $walker->($style);
309         $combos{"$mode/$style"} = $sample;
314     for $style (@styles) {
315         is ( $combos{"$style/$mode"},
316              $combos{"$mode/$style"},
317              "results for $style/$mode vs $mode/$style are the same" );
327     for $style (@styles) {
329         is ( $combos{"$style$mode"},
330              $combos{"$style/$mode"},
331              "$style$mode VS $style/$mode are the same" );
333         is ( $combos{"$mode$style"},
334              $combos{"$mode/$style"},
335              "$mode$style VS $mode/$style are the same" );
337         is ( $combos{"$style$mode"},
338              $combos{"$mode/$style"},
339              "$style$mode VS $mode/$style are the same" );
341         is ( $combos{"$mode$style"},
342              $combos{"$style/$mode"},
343              "$mode$style VS $style/$mode are the same" );