share/contrib/operatingsystem/rtest_operatingsystem.mac

   1 /* SPDX-License-Identifier: GPL-2.0-or-later */
   2 /* Tests for the operatingsystem package */
   3 /* File tests may need write and read permissions in the current directory */
   4 /* run the test (if you start maxima with ./maxima-local) with */
   5 /* batch("share/contrib/operatingsystem/rtest_operatingsystem.mac", 'test); */
   6 /* Be careful: if operations fail, directories may be left over or one might be in another directory! */
   7
   8 (kill(all),0);
   9 0$
  10
  11 ( load("operatingsystem"), 0 );
  12 0$
  13
  14 (olddir : getcurrentdirectory(), 0);
  15 0$
  16
  17 (mkdir("testdir1"), 0);
  18 0$
  19
  20 (chdir("testdir1"),0);
  21 0$
  22
  23 (newdir : getcurrentdirectory(), 0);
  24 0$
  25
  26 mkdirokay : if sequal(concat(olddir, "testdir1/"), newdir) then "ok" else "not ok";
  27 "ok"$
  28
  29 /* in the new directory, try to create, rename and remove a file */
  30 pathname_name(stringout("testfile", "testdata"));
  31 "testfile"$
  32
  33 length(directory("*"));
  34 1$
  35
  36 pathname_name(first(directory("*")));
  37 "testfile"$
  38
  39 (rename_file("testfile", "testfile2"),0);
  40 0$
  41
  42 length(directory("*"));
  43 1$
  44
  45 pathname_name(first(directory("*")));
  46 "testfile2"$
  47
  48 (copy_file("testfile2", "testfile3"),0);
  49 0$
  50
  51 length(directory("*"));
  52 2$
  53
  54 pathname_name(first(sort(directory("*"))));
  55 "testfile2"$
  56
  57 pathname_name(second(sort(directory("*"))));
  58 "testfile3"$
  59
  60 (delete_file("testfile2"),0);
  61 0$
  62
  63 length(directory("*"));
  64 1$
  65
  66 pathname_name(first(directory("*")));
  67 "testfile3"$
  68
  69 (delete_file("testfile3"),0);
  70 0$
  71
  72 length(directory("*"));
  73 0$
  74
  75
  76 (if sequal(mkdirokay, "ok") then chdir(".."),0);
  77 0$
  78
  79
  80 /* do this test only if creating a new directory worked */
  81 (if sequal(mkdirokay, "ok") then rmdir("testdir1"), 0);
  82 0$
  83
  84 /* now test a more complicated name - with spaces, german umlauts */
  85 (mkdir("testdir1 äöüß"), 0);
  86 0$
  87
  88 /* do this test only if creating a new directory worked */
  89 (chdir("testdir1 äöüß"),0);
  90 0$
  91
  92 (newdir : getcurrentdirectory(), 0);
  93 0$
  94
  95 mkdirokay : if sequal(concat(olddir, "testdir1 äöüß/"), newdir) then "ok" else "not ok";
  96 "ok"$
  97
  98 /* do this test only if creating a new directory worked */
  99 (if sequal(mkdirokay, "ok") then chdir(".."),0);
 100 0$
 101
 102 /* do this test only if creating a new directory worked */
 103 (if sequal(mkdirokay, "ok") then rmdir("testdir1 äöüß"), 0);
 104 0$