diff --git a/testsuite/gtk/listmodel-performance.c b/testsuite/gtk/listmodel-performance.c
new file mode 100644
index 0000000000..bf2abf7aaf
--- /dev/null
+++ b/testsuite/gtk/listmodel-performance.c
@@ -0,0 +1,125 @@
+#include <gtk/gtk.h>
+
+static GObject *
+get_object (const char *string)
+{
+  GtkStringList *list;
+  GObject *obj;
+
+  list = gtk_string_list_new ((const char *[]){string, NULL});
+  obj = g_list_model_get_item (G_LIST_MODEL (list), 0);
+  g_object_unref (list);
+
+  return obj;
+}
+
+static GListModel *
+make_list_store (guint n_items)
+{
+  GListStore *store;
+  guint i;
+
+  store = g_list_store_new (GTK_TYPE_STRING_OBJECT);
+
+  for (i = 0; i < n_items; i++)
+    {
+      char *string;
+      GObject *obj;
+
+      string = g_strdup_printf ("item %d", i);
+      obj = get_object (string);
+      g_list_store_append (store, obj);
+      g_object_unref (obj);
+      g_free (string);
+    }
+
+  return G_LIST_MODEL (store);
+}
+
+static GListModel *
+make_string_list (guint n_items)
+{
+  GtkStringList *store;
+  guint i;
+
+  store = gtk_string_list_new (NULL);
+
+  for (i = 0; i < n_items; i++)
+    {
+      char *string;
+
+      string = g_strdup_printf ("item %d", i);
+      gtk_string_list_append (store, string);
+      g_free (string);
+    }
+
+  return G_LIST_MODEL (store);
+}
+
+static void
+do_random_access (const char *kind,
+                  guint       size)
+{
+  GListModel *model;
+  guint i;
+  guint position;
+  GtkStringObject *obj;
+  gint64 start, end;
+  guint iterations = 10000000;
+
+  if (strcmp (kind, "liststore") == 0)
+    model = make_list_store (size);
+  else if (strcmp (kind, "stringlist") == 0)
+    model = make_string_list (size);
+  else
+    g_error ("unsupported: %s", kind);
+
+  start = g_get_monotonic_time ();
+
+  for (i = 0; i < iterations; i++)
+    {
+      position = g_random_int_range (0, size);
+      obj = g_list_model_get_item (model, position);
+      if (g_getenv ("PRINT_ACCESS"))
+        g_print ("%s", gtk_string_object_get_string (obj));
+      g_object_unref (obj);
+    }
+
+  end = g_get_monotonic_time ();
+
+  g_print ("\"%s\", %u, %g\n",
+           kind,
+           size,
+           iterations / (((double)(end - start)) / G_TIME_SPAN_SECOND));
+
+  g_object_unref (model);
+}
+
+static void
+random_access (void)
+{
+  do_random_access ("liststore", 1e1);
+  do_random_access ("liststore", 1e2);
+  do_random_access ("liststore", 1e3);
+  do_random_access ("liststore", 1e4);
+  do_random_access ("liststore", 1e5);
+  do_random_access ("liststore", 1e6);
+  do_random_access ("liststore", 1e7);
+  do_random_access ("stringlist", 1e1);
+  do_random_access ("stringlist", 1e2);
+  do_random_access ("stringlist", 1e3);
+  do_random_access ("stringlist", 1e4);
+  do_random_access ("stringlist", 1e5);
+  do_random_access ("stringlist", 1e6);
+  do_random_access ("stringlist", 1e7);
+}
+
+int
+main (int argc, char *argv[])
+{
+  gtk_test_init (&argc, &argv);
+
+  g_test_add_func ("/liststore/random-access", random_access);
+
+  return g_test_run ();
+}
diff --git a/testsuite/gtk/meson.build b/testsuite/gtk/meson.build
index 1b2ccdb15d..1baa425b3f 100644
--- a/testsuite/gtk/meson.build
+++ b/testsuite/gtk/meson.build
@@ -78,6 +78,7 @@ tests = [
   ['vector'],
   ['widgetorder'],
   ['widget-refcount'],
+  ['listmodel-performance'],
 ]
 
 # Tests that are expected to fail