2 # Copyright (C) 2008, Parrot Foundation.
7 t/pmc/schedulermessage - test the SchedulerMessage PMC
11 % prove t/pmc/schedulermessage.t
15 Tests the SchedulerMessage PMC.
20 .include 'test_more.pir'
31 new $P0, ['SchedulerMessage']
32 ok(1, 'Instantiated SchedulerMessage PMC')
35 .sub type_and_id_tests
36 $P0 = new ['SchedulerMessage']
38 $P0 = "some kinda message"
41 is($S0 , "some kinda message", "scheduler message type stored/retrieved successfully")
44 is($I0, 2345, "scheduler id type stored/retrieved successfully")
48 .sub freeze_thaw_tests
49 $P0 = new ['SchedulerMessage']
57 is($S0, "Smart message", "frozen message has correct type")
60 is($I0, 86, "frozen message has correct id")
70 $P1 = new ['SchedulerMessage'], $P0
73 is($S0, "nine", "hash-initialized message has correct type")
76 is($I0, 9, "hash-initialized message has correct id")
83 # vim: expandtab shiftwidth=4 ft=pir: