psh.test1.dl

   1 % testing a pumpspeicherkraftwerk
   2 storage_plant(psh).
   3
   4 % define max capacity
   5 c_max(psh,20).
   6
   7 % define control i1 to 5KW (we request 5 KW)
   8 c(psh,i1,5).
   9
  10 % define control iw to 10 windspeed
  11 c(psh,iw,10).
  12
  13 % we test.
  14 % expecting i1 to be 5
  15 expect_c(psh,i1,5).
  16
  17 % expecting iw to be 10
  18 expect_c(psh,iw,10).
  19
  20 % and therefore we shall produce 10KW
  21 expect_p(psh,op,5).
  22
  23