Browse files

convert PASM test to PIR

  • Loading branch information...
1 parent af8b198 commit d8551ba69e1fbe876bf37813e9b52a5df9eab53b @coke coke committed Apr 29, 2012
Showing with 7 additions and 7 deletions.
  1. +7 −7 t/dynoplibs/time_old.t
View
14 t/dynoplibs/time_old.t
@@ -27,15 +27,15 @@ $year += 1900;
# don't run this test 1 tick before the year changes #'
-pasm_output_is( <<'CODE', $year, "decodelocaltime" );
-.pcc_sub :main main:
+pir_output_is( <<'CODE', $year, "decodelocaltime" );
.loadlib 'sys_ops'
- time I0
- decodelocaltime P0, I0
+.sub test
+ time $I0
+ decodelocaltime $P0, $I0
.include "tm.pir"
- set I0, P0[.TM_YEAR]
- print I0
- end
+ set $I0, $P0[.TM_YEAR]
+ print $I0
+.end
CODE

0 comments on commit d8551ba

Please sign in to comment.