c:\@Work\Perl\monks\jag194u>perl ToyVerilog.t
ok 1 - use ToyVerilog;
ok 2 - writing.reg("top.inst1.inst2.reg").write(status,32'h30);
ok 3 - writing.reg("mod.ins5.ins7.val").write(status,{24'h0,4'h2,variable1,variable2});
ok 4 - writing.reg($psprintf("mod.ins[%d].ins[%d].val",1,2)).write(status,{24'h0,4'h2,variable1,variable2});
ok 5 - writing.reg("top.inst1.inst2.reg").write(status,32'h30); foo
# other stuff
# bar writing.reg("mod.ins5.ins7.val").write(status,{24'h0,4'h2,variable1,variable2});
# some more things
# baz writing.reg($psprintf("mod.ins[%d].ins[%d].val",1,2)).write(status,{24'h0,4'h2,variable1,variable2}); boff
# whatever else
#
ok 6 - no warnings
1..6