diff --git a/projects/scripts/adi_tquest.tcl b/projects/scripts/adi_tquest.tcl
new file mode 100755
index 000000000..d37f14980
--- /dev/null
+++ b/projects/scripts/adi_tquest.tcl
@@ -0,0 +1,16 @@
+
+set worst_path [get_timing_paths -npaths 1 -setup]
+foreach_in_collection path $worst_path {
+  set slack [get_path_info $path -slack]
+}
+
+if {$slack > 0} {
+  set worst_path [get_timing_paths -npaths 1 -hold]
+  foreach_in_collection path $worst_path {
+    set slack [get_path_info $path -slack]
+  }
+}
+
+if {$slack < 0} {
+  return -code error [format "ERROR: Timing Constraints NOT met!"]
+}