share/contrib/unit/rtest_unit.mac

   1 /* tests for share/contrib/unit package, derived from doc/info/unit.texi */
   2
   3 (if not ?boundp ('globalbaseunitlisting) then load ("unit.mac"), 0);
   4 0;
   5
   6 /* Evaluate all test inputs via TOPLEVEL-MACSYMA-EVAL, since the unit package
   7  * redefines that function to call the pre- and post-processing functions,
   8  * which produce the results that one would see if the input were entered
   9  * at the console input prompt. The code for processing test cases
  10  * (TEST-BATCH in src/mload.lisp) calls MEVAL*, not TOPLEVEL-MACSYMA-EVAL,
  11  * so it misses the pre- and post-evaluation functions, and so the test
  12  * outputs don't come out the same as if they were entered at the input prompt.
  13  *
  14  * I'm leaning towards thinking the pre- and post-evaluation functions
  15  * should be called somehow from MEVAL, since as it stands, working with units
  16  * within functions won't produce the same results as console inputs, since only
  17  * MEVAL is called within functions and not TOPLEVEL-MACSYMA-EVAL (nor MEVAL*
  18  * for that matter). Be that as it may, I will let it stand and work around
  19  * the issue with explicit calls to TOPLEVEL-MACSYMA-EVAL here.
  20  */
  21
  22 ?toplevel\-macsyma\-eval (N);
  23 kg*m/s^2;
  24
  25 ?toplevel\-macsyma\-eval (dyn);
  26 ?rat(1, 100000)*kg*m/s^2;
  27
  28 ?toplevel\-macsyma\-eval (g);
  29 ?rat(1, 1000)*kg;
  30
  31 ?toplevel\-macsyma\-eval (centigram*inch/minutes^2);
  32 ?rat(127, 1800000000000)*kg*m/s^2;
  33
  34 setunits([centigram,inch,minute]);
  35 done;
  36
  37 ?toplevel\-macsyma\-eval (N);
  38 ?rat(1800000000000, 127)*%in*cg/%min^2;
  39
  40 ?toplevel\-macsyma\-eval (dyn);
  41 ?rat(18000000, 127)*%in*cg/%min^2;
  42
  43 ?toplevel\-macsyma\-eval (g);
  44 100*cg;
  45
  46 ?toplevel\-macsyma\-eval (centigram*inch/minutes^2);
  47 %in*cg/%min^2;
  48
  49 setunits([kg,m,s]);
  50 done;
  51
  52 ?toplevel\-macsyma\-eval (centigram*inch/minutes^2);
  53 ?rat(127, 1800000000000)*kg*m/s^2;
  54
  55 setunits(N);
  56 done;
  57
  58 ?toplevel\-macsyma\-eval (N);
  59 N;
  60
  61 ?toplevel\-macsyma\-eval (dyn);
  62 ?rat(1, 100000)*N;
  63
  64 ?toplevel\-macsyma\-eval (kg*m/s^2);
  65 N;
  66
  67 ?toplevel\-macsyma\-eval (centigram*inch/minutes^2);
  68 ?rat(127, 1800000000000)*N;
  69
  70 setunits(dyn);
  71 done;
  72
  73 ?toplevel\-macsyma\-eval (kg*m/s^2);
  74 100000*dyn;
  75
  76 ?toplevel\-macsyma\-eval (centigram*inch/minutes^2);
  77 ?rat(127, 18000000)*dyn;
  78
  79 uforget(dyn);
  80 false;
  81
  82 ?toplevel\-macsyma\-eval (kg*m/s^2);
  83 kg*m/s^2;
  84
  85 ?toplevel\-macsyma\-eval (centigram*inch/minutes^2);
  86 ?rat(127, 1800000000000)*kg*m/s^2;
  87
  88 setunits([centigram,inch,minute]);
  89 done;
  90
  91 ?toplevel\-macsyma\-eval (centigram*inch/minutes^2);
  92 %in*cg/%min^2;
  93
  94 uforget([cg,%in,%min]);
  95 [false, false, false];
  96
  97 ?toplevel\-macsyma\-eval (centigram*inch/minutes^2);
  98 ?rat(127, 1800000000000)*kg*m/s^2;
  99
 100 ?toplevel\-macsyma\-eval (kg*m/s^2);
 101 kg*m/s^2;
 102
 103 ?toplevel\-macsyma\-eval (convert(kg*m/s^2,[g,km,s]));
 104 g*km/s^2;
 105
 106 ?toplevel\-macsyma\-eval (convert(kg*m/s^2,[g,inch,minute]));
 107 ?rat(18000000000, 127)*%in*g/%min^2;
 108
 109 ?toplevel\-macsyma\-eval (convert(kg*m/s^2,[N]));
 110 N;
 111
 112 ?toplevel\-macsyma\-eval (convert(kg*m^2/s^2,[N]));
 113 m*N;
 114
 115 setunits([N,J]);
 116 done;
 117
 118 ?toplevel\-macsyma\-eval (convert(kg*m^2/s^2,[N]));
 119 m*N;
 120
 121 ?toplevel\-macsyma\-eval (convert(kg*m^2/s^2,[N,inch]));
 122 ?rat(5000, 127)*%in*N;
 123
 124 ?toplevel\-macsyma\-eval (convert(kg*m^2/s^2,[J]));
 125 J;
 126
 127 ?toplevel\-macsyma\-eval (kg*m^2/s^2);
 128 J;
 129
 130 setunits([g,inch,s]);
 131 done;
 132
 133 ?toplevel\-macsyma\-eval (kg*m/s^2);
 134 N;
 135
 136 uforget(N);
 137 false;
 138
 139 ?toplevel\-macsyma\-eval (kg*m/s^2);
 140 ?rat(5000000, 127)*%in*g/s^2;
 141
 142 ?toplevel\-macsyma\-eval (convert(kg*m/s^2,[g,inch,s]));
 143 ?rat(5000000, 127)*%in*g/s^2;
 144
 145 uforget (%in);
 146 false;
 147
 148 /* omit examples for usersetunits, since that's hard to test */
 149
 150 setunits([N, J]);
 151 done;
 152
 153 ?toplevel\-macsyma\-eval (kg*m/s^2);
 154 N;
 155
 156 ?toplevel\-macsyma\-eval (kg*m^2/s^2);
 157 J;
 158
 159 setunits([dyn,eV]);
 160 done;
 161
 162 ?toplevel\-macsyma\-eval (kg*m/s^2);
 163 100000*dyn;
 164
 165 ?toplevel\-macsyma\-eval (kg*m^2/s^2);
 166 6241509596477042688*eV;
 167
 168 ?toplevel\-macsyma\-eval (kg*m^3/s^2);
 169 6241509596477042688*eV*m;
 170
 171 ?toplevel\-macsyma\-eval (kg*m*km/s^2);
 172 6241509596477042688000*eV;
 173
 174 uforget([dyn,eV]);
 175 [false, false];
 176
 177 ?toplevel\-macsyma\-eval (kg*m/s^2);
 178 N;
 179
 180 ?toplevel\-macsyma\-eval (kg*m^2/s^2);
 181 J;
 182
 183 dontusedimension(N);
 184 [%force];
 185
 186 dontusedimension(J);
 187 [%energy, %force];
 188
 189 ?toplevel\-macsyma\-eval (kg*m/s^2);
 190 kg*m/s^2;
 191
 192 ?toplevel\-macsyma\-eval (kg*m^2/s^2);
 193 kg*m^2/s^2;
 194
 195 setunits([dyn,eV]);
 196 done;
 197
 198 ?toplevel\-macsyma\-eval (kg*m/s^2);
 199 kg*m/s^2;
 200
 201 ?toplevel\-macsyma\-eval (kg*m^2/s^2);
 202 kg*m^2/s^2;
 203
 204 uforget([dyn,eV]);
 205 [false, false];
 206
 207 ?toplevel\-macsyma\-eval (kg*m/s^2);
 208 kg*m/s^2;
 209
 210 ?toplevel\-macsyma\-eval (kg*m^2/s^2);
 211 kg*m^2/s^2;
 212
 213 usedimension(N);
 214 true;
 215
 216 usedimension(J);
 217 true;
 218
 219 ?toplevel\-macsyma\-eval (kg*m/s^2);
 220 kg*m/s^2;
 221
 222 ?toplevel\-macsyma\-eval (kg*m^2/s^2);
 223 kg*m^2/s^2;
 224
 225 setunits([dyn,eV]);
 226 done;
 227
 228 ?toplevel\-macsyma\-eval (kg*m/s^2);
 229 100000*dyn;
 230
 231 ?toplevel\-macsyma\-eval (kg*m^2/s^2);
 232 6241509596477042688*eV;
 233
 234 uforget([dyn,eV]);
 235 [false, false];
 236
 237 ?toplevel\-macsyma\-eval (kg*m/s^2);
 238 N;
 239
 240 ?toplevel\-macsyma\-eval (kg*m^2/s^2);
 241 J;
 242
 243 kill(usersetunits);
 244 done;
 245
 246 uforget([dyn,eV]);
 247 [false, false];
 248
 249 ?toplevel\-macsyma\-eval (kg*m/s^2);
 250 kg*m/s^2;
 251
 252 ?toplevel\-macsyma\-eval (kg*m^2/s^2);
 253 kg*m^2/s^2;
 254