ddl: add test programs

2 files changed, 39 insertions, 0 deletions

diff --git a/test/idCpp.cpp b/test/idCpp.cpp
new file mode 100644
index 0000000..24894f4
--- /dev/null
+++ b/test/idCpp.cpp
@@ -0,0 +1,31 @@
+#include <string>
+#include <iostream>
+#include <istream>
+#include <ostream>
+#include <iterator>
+
+#include "Mesh.hpp"
+#include "IR.hpp"
+#include "TypeInfo.hpp"
+
+int main() {
+  // don't skip the whitespace while reading
+  std::cin >> std::noskipws;
+
+  // use stream iterators to copy the stream to a string
+  std::istream_iterator<char> it(std::cin);
+  std::istream_iterator<char> end;
+  std::string results(it, end);
+
+  try {
+    json jobjIn = json::parse(results);
+    std::shared_ptr<Pipeline> b = fromJSON(W<std::shared_ptr<Pipeline>>(),jobjIn);
+    std::shared_ptr<data::Pipeline> tv = std::static_pointer_cast<data::Pipeline>(b);
+    json jobjOut = toJSON(b);
+    std::cout << jobjOut;
+  } catch (std::string e) {
+    std::cout << "exception: " << e << "\n";
+  } catch (...) { std::cout << "default exception\n"; }
+
+  return 0;
+}
diff --git a/test/idHs.hs b/test/idHs.hs
new file mode 100644
index 0000000..7cd9917
--- /dev/null
+++ b/test/idHs.hs
@@ -0,0 +1,8 @@
+{-# LANGUAGE ScopedTypeVariables  #-}
+import qualified Data.ByteString.Lazy as B
+import Data.Aeson
+import IR
+
+main = do
+  Just (p :: Pipeline) <- decode <$> B.getContents
+  B.putStr $ encode p