mgeti : unit test updated. 55/12155/2
Cedric Delamarre [Fri, 26 Jul 2013 14:46:24 +0000 (16:46 +0200)]
Change-Id: I47e2a7994831c8034fda5c33d08e92535c2a9562

scilab/modules/fileio/tests/unit_tests/mgeti.dia.ref
scilab/modules/fileio/tests/unit_tests/mgeti.tst

index a840525..c161b9f 100644 (file)
@@ -65,3 +65,12 @@ res = readdata("sb");
 assert_checkequal(res, [s1, s2, s3]);
 res = readdata("sl");
 assert_checkequal(res, [s1, s2, s3]);
+// check default output type of mgeti
+file1 = fullfile(TMPDIR,'test1.bin');
+fd1=mopen(file1,'wb');
+mput(1996,'ull',fd1);
+mclose(fd1);
+fd1=mopen(file1,'rb');
+a=mgeti(1);
+assert_checkequal(typeof(a), "int32");
+assert_checkequal(a, int32(1996));
index f0e7079..d607ec1 100644 (file)
@@ -74,3 +74,14 @@ res = readdata("sb");
 assert_checkequal(res, [s1, s2, s3]);
 res = readdata("sl");
 assert_checkequal(res, [s1, s2, s3]);
+
+// check default output type of mgeti
+file1 = fullfile(TMPDIR,'test1.bin');
+fd1=mopen(file1,'wb');
+mput(1996,'ull',fd1);
+mclose(fd1);
+
+fd1=mopen(file1,'rb');
+a=mgeti(1);
+assert_checkequal(typeof(a), "int32");
+assert_checkequal(a, int32(1996));