diff --git a/test/Jamfile b/test/Jamfile
index 7159dce..fe90abc 100644
--- a/test/Jamfile
+++ b/test/Jamfile
@@ -1,11 +1,12 @@
 # Copyright (C) 1999, 2000 Jaakko Jarvi (jaakko.jarvi@cs.utu.fi)
 # Distributed under the Boost Software License, Version 1.0.
 
-test-suite tuple : 
-    [ run tuple_test_bench.cpp ]
-    [ run io_test.cpp ]
-    [ run another_tuple_test_bench.cpp ]
-    [ run std_tuple_size.cpp ]
-    [ run std_tuple_element.cpp ]
-    [ run structured_bindings.cpp ]
-    ;
+import testing ;
+
+run tuple_test_bench.cpp ;
+run io_test.cpp ;
+run another_tuple_test_bench.cpp ;
+run std_tuple_size.cpp ;
+run std_tuple_element.cpp ;
+run structured_bindings.cpp ;
+run quick.cpp ;
diff --git a/test/quick.cpp b/test/quick.cpp
new file mode 100644
index 0000000..c78dde5
--- /dev/null
+++ b/test/quick.cpp
@@ -0,0 +1,16 @@
+// Copyright 2023 Peter Dimov.
+// Distributed under the Boost Software License, Version 1.0.
+
+#include <boost/tuple/tuple.hpp>
+#include <boost/core/lightweight_test.hpp>
+
+int main()
+{
+    boost::tuple<int, int, int> tp( 1, 2, 3 );
+
+    BOOST_TEST_EQ( boost::get<0>(tp), 1 );
+    BOOST_TEST_EQ( boost::get<1>(tp), 2 );
+    BOOST_TEST_EQ( boost::get<2>(tp), 3 );
+
+    return boost::report_errors();
+}