# tests for the dss shell type library

TITLE + type

export LC_ALL=C TZ=EST5EDT

builtin -f dss

dss.load time_t

typeset -T dss.time_t

function part

{

time_t t="$1"

while (( $# > 1 ))

do shift

eval "$1"

done

print -- $t ${t.year}-${t.mon}-${t.mday}+${t.hour}:${t.min}:${t.sec} ${t.wday}

}

TEST 01 'basics'

PROG part 2003-01-02+03:04:05

OUTPUT - $'2003-01-02+03:04:05 2003-January-2+3:4:5 Thursday'

PROG part 2003-01-02+03:04:05 t.year=2004

OUTPUT - $'2004-01-02+03:04:05 2004-January-2+3:4:5 Friday'

PROG part 2003-01-02+03:04:05 t.mon=2

OUTPUT - $'2003-02-02+03:04:05 2003-February-2+3:4:5 Sunday'

PROG part 2003-01-02+03:04:05 t.mday=3

OUTPUT - $'2003-01-03+03:04:05 2003-January-3+3:4:5 Friday'

PROG part 2003-01-02+03:04:05 t.hour=4

OUTPUT - $'2003-01-02+04:04:05 2003-January-2+4:4:5 Thursday'

PROG part 2003-01-02+03:04:05 t.min=5

OUTPUT - $'2003-01-02+03:05:05 2003-January-2+3:5:5 Thursday'

PROG part 2003-01-02+03:04:05 t.sec=6

OUTPUT - $'2003-01-02+03:04:06 2003-January-2+3:4:6 Thursday'

PROG part 2003-01-02+03:04:05 t.wday=6

OUTPUT - $'2003-01-03+03:04:05 2003-January-3+3:4:5 Friday'

PROG part 2003-01-02+03:04:05 t.mon=March

OUTPUT - $'2003-03-02+03:04:05 2003-March-2+3:4:5 Sunday'

PROG part 2003-01-02+03:04:05 t.wday=Tuesday

OUTPUT - $'2003-01-07+03:04:05 2003-January-7+3:4:5 Tuesday'

TEST 02 'local variable details override'

PROG part 2003-01-02+03:04:05

OUTPUT - $'2003-01-02+03:04:05 2003-January-2+3:4:5 Thursday'

PROG part 2003-01-02+03:04:05 "t._=%c"

OUTPUT - $'Thu Jan 2 03:04:05 2003 2003-January-2+3:4:5 Thursday'

PROG part 2003-01-02+03:04:05 "t.mon._=%02d" t.mon=2

OUTPUT - $'2003-02-02+03:04:05 2003-02-2+3:4:5 Sunday'

PROG part 2003-01-02+03:04:05 "t.hour._=%s" t.hour=4

OUTPUT - $'2003-01-02+04:04:05 2003-January-2+4AM:4:5 Thursday'

PROG part 2003-01-02+03:04:05 "t.hour._=%s" t.hour=20

OUTPUT - $'2003-01-02+20:04:05 2003-January-2+8PM:4:5 Thursday'

PROG part 2003-01-02+03:04:05 "t.wday._=%d" t.wday=6

OUTPUT - $'2003-01-03+03:04:05 2003-January-3+3:4:5 6'

PROG part 2003-01-02+03:04:05

OUTPUT - $'2003-01-02+03:04:05 2003-January-2+3:4:5 Thursday'

TEST 03 'global type details override'

PROG part 2003-01-02+03:04:05

OUTPUT - $'2003-01-02+03:04:05 2003-January-2+3:4:5 Thursday'

PROG part 2003-01-02+03:04:05 ".sh.type.dss.time_t._=%c"

OUTPUT - $'Thu Jan 2 03:04:05 2003 2003-January-2+3:4:5 Thursday'

PROG part 2003-01-02+03:04:05

OUTPUT - $'Thu Jan 2 03:04:05 2003 2003-January-2+3:4:5 Thursday'

PROG part 2003-01-02+03:04:05 ".sh.type.dss.tm_mon_t._=%d" ".sh.type.dss.tm_wday_t._=%02d" ".sh.type.dss.tm_hour_t._=%02d"

OUTPUT - $'Thu Jan 2 03:04:05 2003 2003-1-2+03:4:5 05'

PROG part 2003-01-02+03:04:05 t.mon=2

OUTPUT - $'Sun Feb 2 03:04:05 2003 2003-2-2+03:4:5 01'

PROG part 2003-01-02+03:04:05 t.hour=4

OUTPUT - $'Thu Jan 2 04:04:05 2003 2003-1-2+04:4:5 05'

PROG part 2003-01-02+03:04:05 t.hour=20

OUTPUT - $'Thu Jan 2 20:04:05 2003 2003-1-2+20:4:5 05'

PROG part 2003-01-02+03:04:05 t.wday=6

OUTPUT - $'Fri Jan 3 03:04:05 2003 2003-1-3+03:4:5 06'

PROG part 2003-01-02+03:04:05

OUTPUT - $'Thu Jan 2 03:04:05 2003 2003-1-2+03:4:5 05'