Missing file

diff --git a/library/test/compiler/print-dataflow.factor b/library/test/compiler/print-dataflow.factor
new file mode 100644 (file)
index 0000000..01c0c43
--- /dev/null
+++ b/library/test/compiler/print-dataflow.factor
@@ -0,0 +1,9 @@
+USING: inference kernel kernel-internals math test words ;
+
+[ ] [ [ 2 ] t dataflow. ] unit-test
+[ ] [ [ 3 + ] t dataflow. ] unit-test
+[ ] [ [ drop ] t dataflow. ] unit-test
+[ ] [ [ [ sq ] [ abs ] ifte ] t dataflow. ] unit-test
+[ ] [ [ { [ sq ] [ abs ] } dispatch ] t dataflow. ] unit-test
+[ ] [ \ unify-values word-def t dataflow. ] unit-test
+[ ] [ [ 0 0 / ] t dataflow. ] unit-test