share/contrib/unit/rtest_unit_usersetunits.mac

   1 /* Tests for usersetunits.
   2  * Need to ensure usersetunits is assigned before loading the unit package.
   3  */
   4
   5 (usersetunits : [N,J],
   6  if not ?boundp ('globalbaseunitlisting)
   7      then load ("unit.mac")
   8      else error ("rtest_unit_usersetunits: unit package is loaded already, but this script must run in a clean session."),
   9  0);
  10 0;
  11
  12 ?toplevel\-macsyma\-eval (kg*m/s^2);
  13 N;
  14
  15 ?toplevel\-macsyma\-eval (kg*m^2/s^2);
  16 J;
  17
  18 ?toplevel\-macsyma\-eval (kg*m^3/s^2);
  19 J*m;
  20
  21 ?toplevel\-macsyma\-eval (kg*m*km/s^2);
  22 1000*J;
  23
  24 setunits([dyn,eV]);
  25 done;
  26
  27 ?toplevel\-macsyma\-eval (kg*m/s^2);
  28 100000*dyn;
  29
  30 ?toplevel\-macsyma\-eval (kg*m^2/s^2);
  31 6241509596477042688*eV;
  32
  33 ?toplevel\-macsyma\-eval (kg*m^3/s^2);
  34 6241509596477042688*eV*m;
  35
  36 ?toplevel\-macsyma\-eval (kg*m*km/s^2);
  37 6241509596477042688000*eV;
  38
  39 uforget([dyn,eV]);
  40 [done, done];
  41
  42 ?toplevel\-macsyma\-eval (kg*m/s^2);
  43 N;
  44
  45 ?toplevel\-macsyma\-eval (kg*m^2/s^2);
  46 J;
  47
  48 ?toplevel\-macsyma\-eval (kg*m^3/s^2);
  49 J*m;
  50
  51 ?toplevel\-macsyma\-eval (kg*m*km/s^2);
  52 1000*J;
  53
  54 ?toplevel\-macsyma\-eval (kg*m/s^2);
  55 N;
  56
  57 ?toplevel\-macsyma\-eval (kg*m^2/s^2);
  58 J;
  59
  60 setunits([dyn,eV]);
  61 done;
  62
  63 ?toplevel\-macsyma\-eval (kg*m/s^2);
  64 100000*dyn;
  65
  66 ?toplevel\-macsyma\-eval (kg*m^2/s^2);
  67 6241509596477042688*eV;
  68
  69 uforget([dyn,eV]);
  70 [done, done];
  71
  72 ?toplevel\-macsyma\-eval (kg*m/s^2);
  73 N;
  74
  75 ?toplevel\-macsyma\-eval (kg*m^2/s^2);
  76 J;
  77
  78 dontusedimension(N);
  79 [%force];
  80
  81 dontusedimension(J);
  82 [%energy, %force];
  83
  84 ?toplevel\-macsyma\-eval (kg*m/s^2);
  85 kg*m/s^2;
  86
  87 ?toplevel\-macsyma\-eval (kg*m^2/s^2);
  88 kg*m^2/s^2;
  89
  90 setunits([dyn,eV]);
  91 done;
  92
  93 ?toplevel\-macsyma\-eval (kg*m/s^2);
  94 kg*m/s^2;
  95
  96 ?toplevel\-macsyma\-eval (kg*m^2/s^2);
  97 kg*m^2/s^2;
  98
  99 uforget([dyn,eV]);
 100 [done, done];
 101
 102 ?toplevel\-macsyma\-eval (kg*m/s^2);
 103 kg*m/s^2;
 104
 105 ?toplevel\-macsyma\-eval (kg*m^2/s^2);
 106 kg*m^2/s^2;
 107
 108 usedimension(N);
 109 true;
 110
 111 usedimension(J);
 112 true;
 113
 114 ?toplevel\-macsyma\-eval (kg*m/s^2);
 115 kg*m/s^2;
 116
 117 ?toplevel\-macsyma\-eval (kg*m^2/s^2);
 118 kg*m^2/s^2;
 119
 120 setunits([dyn,eV]);
 121 done;
 122
 123 ?toplevel\-macsyma\-eval (kg*m/s^2);
 124 100000*dyn;
 125
 126 ?toplevel\-macsyma\-eval (kg*m^2/s^2);
 127 6241509596477042688*eV;
 128
 129 uforget([dyn,eV]);
 130 [done, done];
 131
 132 ?toplevel\-macsyma\-eval (kg*m/s^2);
 133 N;
 134
 135 ?toplevel\-macsyma\-eval (kg*m^2/s^2);
 136 J;
 137
 138 kill(usersetunits);
 139 done;
 140
 141 uforget([dyn,eV]);
 142 [false, false];
 143
 144 ?toplevel\-macsyma\-eval (kg*m/s^2);
 145 kg*m/s^2;
 146
 147 ?toplevel\-macsyma\-eval (kg*m^2/s^2);
 148 kg*m^2/s^2;
 149
 150
 151