From 4a0c73c742495de6d5c191544b53450debfa54d2 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 4 Jun 2017 17:56:31 +0100
Subject: [PATCH] sewing-table: TestStrapPeg toplevels

---
 sewing-table.scad.m4 | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/sewing-table.scad.m4 b/sewing-table.scad.m4
index 73fc015..dac94ef 100644
--- a/sewing-table.scad.m4
+++ b/sewing-table.scad.m4
@@ -534,6 +534,16 @@ module TestStrapSlots(){
   }
 }
 
+module TestStrapPeg_any(l){ cube(concat([l],teststrap_peg)); }
+
+module TestStrapPeg_Short(){ ////toplevel
+  TestStrapPeg_any(35);
+}
+
+module TestStrapPeg_Long(){ ////toplevel
+  TestStrapPeg_any(60);
+}
+
 module Machine(){ ////toplevel
   Machine_Arm();
   Machine_Curves();
-- 
2.30.2