octave tests

Author: scivision

+stdlib/get_modtime.m

@@ -18,6 +18,7 @@
 
 %!test
 %! p = tempname();
-%! assert(touch(p))
+%! t = time();
+%! assert(touch(p, t))
 %! assert(get_modtime(p) > 0)
 %! delete(p)

+stdlib/set_modtime.m

@@ -10,11 +10,7 @@
   utc = convertTo(datetime(t, "TimeZone", "UTC"), "posixtime");
 catch e
   if strcmp(e.identifier, "Octave:undefined-function")
-    if nargin == 2
-      utc = t;
-    else
-      utc = time();
-    end
+    utc = t;
   else
     rethrow(e);
   end
@@ -26,6 +22,7 @@
 
 %!test
 %! p = tempname();
-%! assert(touch(p))
-%! assert(set_modtime(p))
+%! t = time()
+%! assert(touch(p, t))
+%! assert(set_modtime(p, t))
 %! delete(p)

+stdlib/touch.m

@@ -21,5 +21,6 @@
 
 %!test
 %! f = tempname();
-%! assert (touch(f))
+%! t = time();
+%! assert (touch(f, t))
 %! assert (isfile(f))