local testPrefix ="persistence_BasicAPITest_"
-- This tests the 'insert' verb of the persistence API
-_AFT.testVerbStatusSuccess(testPrefix.."insert","persistence","insert", {key="TEST", value="myvalue"}, nil,
+_AFT.describe(testPrefix.."insert_with_verification",function()
+ _AFT.callVerb("persistence", "insert", {key="TESTinsert", value="insert"})
+ _AFT.assertVerbResponseEquals("persistence","read", {key="TESTinsert"},{value="insert"})
+ _AFT.callVerb("persistence", "delete", {key="TESTinsert"})
+end)
+
+-- This tests the 'update' verb of the persistence API
+_AFT.describe(testPrefix.."update_with_verification",function()
+ _AFT.callVerb("persistence", "insert", {key="TESTinsert", value="myvalue"})
+ _AFT.assertVerbResponseEquals("persistence","read", {key="TESTinsert"},{value="myvalue"})
+ _AFT.callVerb("persistence", "update", {key="TESTinsert", value="newvalue"})
+ _AFT.assertVerbResponseEquals("persistence","read", {key="TESTinsert"},{value="newvalue"})
+ _AFT.callVerb("persistence", "delete", {key="TESTinsert"})
+end)
+
+-- This tests the 'delete' verb of the persistence API
+_AFT.describe(testPrefix.."delete_with_verification",function()
+ _AFT.callVerb("persistence", "insert", {key="TESTinsert", value="delete"})
+ _AFT.assertVerbResponseEquals("persistence","read", {key="TESTinsert"},{value="delete"})
+ _AFT.callVerb("persistence", "delete", {key="TESTinsert"})
+ _AFT.assertVerbResponseEqualsError("persistence","read", {key="TESTinsert"},{value="delete"})
+end)
+
+-- This tests the 'insert' verb of the persistence API
+_AFT.testVerbStatusSuccess(testPrefix.."insert","persistence","insert", {key="TESTinsert", value="insert"}, nil,
function()
- _AFT.callVerb("persistence", "delete", {key="TEST"})
+ _AFT.callVerb("persistence", "delete", {key="TESTinsert"})
end)
-- This tests the 'delete' verb of the persistence API
-_AFT.testVerbStatusSuccess(testPrefix.."delete","persistence","delete", {key="TEST"},
+_AFT.testVerbStatusSuccess(testPrefix.."delete","persistence","delete", {key="TESTdelete"},
function()
- _AFT.callVerb("persistence", "insert", {key="TEST", value="myvalue"})
+ _AFT.callVerb("persistence", "insert", {key="TESTdelete", value="delete"})
end, nil)
-- This tests the 'update' verb of the persistence API
-_AFT.testVerbStatusSuccess(testPrefix.."update","persistence","update", {key="TEST", value="test"},
+_AFT.testVerbStatusSuccess(testPrefix.."update","persistence","update", {key="TESTupdate", value="testupdate"},
function()
- _AFT.callVerb("persistence", "insert", {key="TEST", value="myvalue"})
+ _AFT.callVerb("persistence", "insert", {key="TESTupdate", value="newupdate"})
end,
function()
- _AFT.callVerb("persistence", "delete", {key="TEST"})
+ _AFT.callVerb("persistence", "delete", {key="TESTupdate"})
end)
-- This tests the 'read' verb of the persistence API
-_AFT.testVerbStatusSuccess(testPrefix.."read","persistence","read", {key="TEST"},
+_AFT.testVerbStatusSuccess(testPrefix.."read","persistence","read", {key="TESTread"},
function()
- _AFT.callVerb("persistence", "insert", {key="TEST", value="myvalue"})
+ _AFT.callVerb("persistence", "insert", {key="TESTread", value="myvalue"})
end,
function()
- _AFT.callVerb("persistence", "delete", {key="TEST"})
+ _AFT.callVerb("persistence", "delete", {key="TESTread"})
end)
-- This tests the 'read' verb of the persistence API
-_AFT.testVerbStatusError(testPrefix.."read-unknow-value","persistence","read", {key="TEST"}, nil, nil)
+_AFT.testVerbStatusError(testPrefix.."read-unknow-value","persistence","read", {key="TESTread-unknow-value"}, nil, nil)
-- This tests the 'insert' verb of the persistence API
-_AFT.testVerbStatusError(testPrefix.."insert-without-value","persistence","insert", {key="TEST"}, nil,
+_AFT.testVerbStatusError(testPrefix.."insert-without-value","persistence","insert", {key="TESTread-unknow-value"}, nil,
function()
_AFT.callVerb("persistence", "delete", {key="TEST"})
end)
-- This tests the 'delete' verb of the persistence API
-_AFT.testVerbStatusError(testPrefix.."delete-unknow-key","persistence","delete", {key="TEST"}, nil, nil)
+_AFT.testVerbStatusError(testPrefix.."delete-unknow-key","persistence","delete", {key="TESTdelete-unknow-key"}, nil, nil)
-- This tests the 'insert' verb of the persistence API
-_AFT.testVerbStatusError(testPrefix.."insert-with-anything","persistence","insert", {value="talenka"}, nil, nil)
+_AFT.testVerbStatusError(testPrefix.."insert-with-anything","persistence","insert", {value="TESTinsert-with-anything"}, nil, nil)
-- This tests the 'update' verb of the persistence API
_AFT.testVerbStatusError(testPrefix.."update-unkwon-null-value","persistence","update", {key=null}, nil, nil)