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