Add simple unit test for FPGA interchange XDC parser.

Signed-off-by: Keith Rothman <537074+litghost@users.noreply.github.com>

2 files changed, 87 insertions, 0 deletions

diff --git a/fpga_interchange/main.cc b/fpga_interchange/main.cc
new file mode 100644
index 0000000..60b9fda
--- /dev/null
+++ b/fpga_interchange/main.cc
@@ -0,0 +1,27 @@
+/*
+ *  nextpnr -- Next Generation Place and Route
+ *
+ *  Copyright (C) 2018  Miodrag Milanovic <miodrag@symbioticeda.com>
+ *
+ *  Permission to use, copy, modify, and/or distribute this software for any
+ *  purpose with or without fee is hereby granted, provided that the above
+ *  copyright notice and this permission notice appear in all copies.
+ *
+ *  THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+ *  WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+ *  MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+ *  ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+ *  WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+ *  ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+ *  OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+ *
+ */
+
+#include <vector>
+#include "gtest/gtest.h"
+
+int main(int argc, char **argv)
+{
+    ::testing::InitGoogleTest(&argc, argv);
+    return RUN_ALL_TESTS();
+}
diff --git a/fpga_interchange/xdc.cc b/fpga_interchange/xdc.cc
new file mode 100644
index 0000000..333af37
--- /dev/null
+++ b/fpga_interchange/xdc.cc
@@ -0,0 +1,60 @@
+/*
+ *  nextpnr -- Next Generation Place and Route
+ *
+ *  Copyright (C) 2021  Symbiflow Authors
+ *
+ *  Permission to use, copy, modify, and/or distribute this software for any
+ *  purpose with or without fee is hereby granted, provided that the above
+ *  copyright notice and this permission notice appear in all copies.
+ *
+ *  THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+ *  WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+ *  MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+ *  ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+ *  WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+ *  ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+ *  OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+ *
+ */
+
+#include "gtest/gtest.h"
+
+#include "nextpnr.h"
+#include "xdc.h"
+
+USING_NEXTPNR_NAMESPACE
+
+class XdcTest : public ::testing::Test {};
+
+TEST_F(XdcTest, do_nothing_interp)
+{
+    {
+        TclInterp interp(nullptr);
+    }
+    {
+        TclInterp interp(nullptr);
+    }
+}
+
+TEST_F(XdcTest, unknown_function)
+{
+    TclInterp interp(nullptr);
+
+    NPNR_ASSERT(Tcl_Eval(interp.interp, "set value port") == TCL_OK);
+    ASSERT_STREQ(Tcl_GetVar(interp.interp, "value", 0), "port");
+
+    NPNR_ASSERT(Tcl_Eval(interp.interp, "set value port[0]") == TCL_OK);
+    ASSERT_STREQ(Tcl_GetVar(interp.interp, "value", 0), "port[0]");
+
+    NPNR_ASSERT(Tcl_Eval(interp.interp, "set value port[1]") == TCL_OK);
+    ASSERT_STREQ(Tcl_GetVar(interp.interp, "value", 0), "port[1]");
+
+    NPNR_ASSERT(Tcl_Eval(interp.interp, "set value port[10]") == TCL_OK);
+    ASSERT_STREQ(Tcl_GetVar(interp.interp, "value", 0), "port[10]");
+
+    NPNR_ASSERT(Tcl_Eval(interp.interp, "set value port[123]") == TCL_OK);
+    ASSERT_STREQ(Tcl_GetVar(interp.interp, "value", 0), "port[123]");
+
+    NPNR_ASSERT(Tcl_Eval(interp.interp, "set value port[x]") == TCL_ERROR);
+    NPNR_ASSERT(Tcl_Eval(interp.interp, "set value port[0 x]") == TCL_ERROR);
+}