test/tests/persistence_BasicAPITest.lua

   1 --[[
   2    Copyright (C) 2018 "IoT.bzh"
   3    Author Frédéric Marec <frederic.marec@iot.bzh>
   4
   5    Licensed under the Apache License, Version 2.0 (the "License");
   6    you may not use this file except in compliance with the License.
   7    You may obtain a copy of the License at
   8
   9      http://www.apache.org/licenses/LICENSE-2.0
  10
  11    Unless required by applicable law or agreed to in writing, software
  12    distributed under the License is distributed on an "AS IS" BASIS,
  13    WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
  14    See the License for the specific language governing permissions and
  15    limitations under the License.
  16
  17
  18    NOTE: strict mode: every global variables should be prefixed by '_'
  19 --]]
  20
  21 local testPrefix ="persistence_BasicAPITest_"
  22
  23 -- This tests the 'insert' verb of the persistence API
  24 _AFT.describe(testPrefix.."insert_with_verification",function()
  25   _AFT.callVerb("persistence", "insert", {key="TESTinsert", value="insert"})
  26   _AFT.assertVerbResponseEquals("persistence","read", {key="TESTinsert"},{value="insert"})
  27   _AFT.callVerb("persistence", "delete", {key="TESTinsert"})
  28 end)
  29
  30 -- This tests the 'update' verb of the persistence API
  31 _AFT.describe(testPrefix.."update_with_verification",function()
  32   _AFT.callVerb("persistence", "insert", {key="TESTinsert", value="myvalue"})
  33   _AFT.assertVerbResponseEquals("persistence","read", {key="TESTinsert"},{value="myvalue"})
  34   _AFT.callVerb("persistence", "update", {key="TESTinsert", value="newvalue"})
  35   _AFT.assertVerbResponseEquals("persistence","read", {key="TESTinsert"},{value="newvalue"})
  36   _AFT.callVerb("persistence", "delete", {key="TESTinsert"})
  37 end)
  38
  39 -- This tests the 'delete' verb of the persistence API
  40 _AFT.describe(testPrefix.."delete_with_verification",function()
  41   _AFT.callVerb("persistence", "insert", {key="TESTinsert", value="delete"})
  42   _AFT.assertVerbResponseEquals("persistence","read", {key="TESTinsert"},{value="delete"})
  43   _AFT.callVerb("persistence", "delete", {key="TESTinsert"})
  44   _AFT.assertVerbResponseEqualsError("persistence","read", {key="TESTinsert"},{value="delete"})
  45 end)
  46
  47 -- This tests the 'insert' verb of the persistence API
  48 _AFT.testVerbStatusSuccess(testPrefix.."insert","persistence","insert", {key="TESTinsert", value="insert"}, nil,
  49   function()
  50     _AFT.callVerb("persistence", "delete", {key="TESTinsert"})
  51   end)
  52
  53 -- This tests the 'delete' verb of the persistence API
  54 _AFT.testVerbStatusSuccess(testPrefix.."delete","persistence","delete", {key="TESTdelete"},
  55   function()
  56     _AFT.callVerb("persistence", "insert", {key="TESTdelete", value="delete"})
  57   end, nil)
  58
  59 -- This tests the 'update' verb of the persistence API
  60 _AFT.testVerbStatusSuccess(testPrefix.."update","persistence","update", {key="TESTupdate", value="testupdate"},
  61   function()
  62     _AFT.callVerb("persistence", "insert", {key="TESTupdate", value="newupdate"})
  63   end,
  64   function()
  65     _AFT.callVerb("persistence", "delete", {key="TESTupdate"})
  66   end)
  67
  68 -- This tests the 'read' verb of the persistence API
  69 _AFT.testVerbStatusSuccess(testPrefix.."read","persistence","read", {key="TESTread"},
  70   function()
  71     _AFT.callVerb("persistence", "insert", {key="TESTread", value="myvalue"})
  72   end,
  73   function()
  74     _AFT.callVerb("persistence", "delete", {key="TESTread"})
  75   end)
  76
  77 -- This tests the 'read' verb of the persistence API
  78 _AFT.testVerbStatusError(testPrefix.."read-unknow-value","persistence","read", {key="TESTread-unknow-value"}, nil, nil)
  79
  80 -- This tests the 'insert' verb of the persistence API
  81 _AFT.testVerbStatusError(testPrefix.."insert-without-value","persistence","insert", {key="TESTread-unknow-value"}, nil,
  82   function()
  83     _AFT.callVerb("persistence", "delete", {key="TEST"})
  84   end)
  85
  86 -- This tests the 'delete' verb of the persistence API
  87 _AFT.testVerbStatusError(testPrefix.."delete-unknow-key","persistence","delete", {key="TESTdelete-unknow-key"}, nil, nil)
  88
  89 -- This tests the 'insert' verb of the persistence API
  90 _AFT.testVerbStatusError(testPrefix.."insert-with-anything","persistence","insert", {value="TESTinsert-with-anything"}, nil, nil)
  91
  92 -- This tests the 'update' verb of the persistence API
  93 _AFT.testVerbStatusError(testPrefix.."update-unkwon-null-value","persistence","update", {key=null}, nil, nil)
  94
  95 _AFT.exitAtEnd()