Add a test of TLS CBC padding verification

See also GH #1227

1 files changed, 40 insertions, 0 deletions

diff --git a/src/tests/test_tls_cbc.cpp b/src/tests/test_tls_cbc.cpp
new file mode 100644
index 000000000..5ff242806
--- /dev/null
+++ b/src/tests/test_tls_cbc.cpp
@@ -0,0 +1,40 @@
+/*
+* (C) 2017 Jack Lloyd
+*
+* Botan is released under the Simplified BSD License (see license.txt)
+*/
+
+#include "tests.h"
+
+#if defined(BOTAN_HAS_TLS_CBC)
+   #include <botan/internal/tls_cbc.h>
+#endif
+
+namespace Botan_Tests {
+
+#if defined(BOTAN_HAS_TLS_CBC)
+
+class TLS_CBC_Padding_Tests : public Text_Based_Test
+   {
+   public:
+      TLS_CBC_Padding_Tests() : Text_Based_Test("tls_cbc.vec", "Record,Output") {}
+
+      Test::Result run_one_test(const std::string& algo, const VarMap& vars) override
+         {
+         const std::vector<uint8_t> record    = get_req_bin(vars, "Record");
+         const size_t output = get_req_sz(vars, "Output");
+
+         uint16_t res = Botan::TLS::check_tls_cbc_padding(record.data(), record.size());
+
+         Test::Result result("TLS CBC padding check");
+         result.test_eq("Expected", res, output);
+         return result;
+         }
+   };
+
+BOTAN_REGISTER_TEST("tls_cbc_padding", TLS_CBC_Padding_Tests);
+
+#endif
+
+}
+