drivers/staging/ktap/test/ptable.kp

   1 #!/usr/bin/env ktap
   2
   3 function failed() {
   4         printf("failed\n");
   5         exit(-1);
   6 }
   7
   8 #---------------------------------#
   9
  10 s = ptable()
  11
  12 for (i = 1, 100, 1) {
  13         s["k"] <<< i
  14 }
  15
  16 if (count(s["k"]) != 100) {
  17         failed()
  18 }
  19 if (sum(s["k"]) != 5050) {
  20         failed()
  21 }
  22 if (max(s["k"]) != 100) {
  23         failed()
  24 }
  25 if (min(s["k"]) != 1) {
  26         failed()
  27 }
  28
  29 for (i = 1, 10000, 1) {
  30         s[i] <<< i
  31 }
  32
  33 if (min(s[1]) != 1) {
  34         failed()
  35 }
  36
  37 if (sum(s[10]) != 10) {
  38         failed()
  39 }
  40
  41 if (max(s[100]) != 100) {
  42         failed()
  43 }
  44
  45
  46