1# -*- mode: perl -*- 2# 3# $Id: 25expand.t,v 1.1 1999/12/18 03:29:50 tai Exp $ 4# 5 6use Test; 7 8BEGIN { plan tests => 7 } 9 10use Schedule::Match qw(scheck rcheck uthash isleap expand localtime); 11 12ok("0123456789", join("", expand("*", [0..9]))); 13ok("02468", join("", expand("*/1", [0..9]))); 14ok("0123456789", join("", expand("0-9", [0..9]))); 15ok("02468", join("", expand("0-9/1", [0..9]))); 16ok("0123456789", join("", expand("0,1,2,3,4,5,6,7,8,9", [0..9]))); 17ok("0123456789", join("", expand("0,1,2,3,4,5-9", [0..9]))); 18ok("02468", join("", expand("0,1,2,3,4,5-9/1", [0..9]))); 19 20exit(0); 21