1 files changed, 63 insertions, 0 deletions
diff --git a/test/links.c b/test/links.c
new file mode 100644
index 0000000..ac4a3e1
--- /dev/null
+++ b/test/links.c
@@ -0,0 +1,63 @@
+/*
+ * Copyright (C) 1998 NCSA
+ *                    All rights reserved.
+ *
+ * Programmer:  Robb Matzke <matzke@llnl.gov>
+ *              Friday, April 10, 1998
+ *
+ * Purpose:	Tests hard and soft (symbolic) links.
+ */
+#include <hdf5.h>
+
+
+/*-------------------------------------------------------------------------
+ * Function:	main
+ *
+ * Purpose:	Tests links.
+ *
+ * Return:	Success:	0
+ *
+ *		Failure:	non-zero
+ *
+ * Programmer:	Robb Matzke
+ *              Friday, April 10, 1998
+ *
+ * Modifications:
+ *
+ *-------------------------------------------------------------------------
+ */
+int
+main (void)
+{
+    hid_t	file, scalar, grp, d1;
+    hsize_t	size[1] = {1};
+
+    /* Create a file */
+    file = H5Fcreate ("links.h5", H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT);
+    scalar = H5Screate_simple (1, size, size);
+
+    /* Create a group */
+    grp = H5Gcreate (file, "grp1", 0);
+    H5Gclose (grp);
+
+    /* Create a dataset */
+    d1 = H5Dcreate (file, "d1", H5T_NATIVE_INT, scalar, H5P_DEFAULT);
+    H5Dclose (d1);
+
+    /* Create a hard link */
+    H5Glink (file, H5G_LINK_HARD, "d1", "grp1/hard");
+
+    /* Create a symbolic link */
+    H5Glink (file, H5G_LINK_SOFT, "/d1", "grp1/soft");
+
+    /* Create a symbolic link to something that doesn't exist */
+    H5Glink (file, H5G_LINK_SOFT, "foobar", "grp1/dangle");
+
+    /* Create a recursive symbolic link */
+    H5Glink (file, H5G_LINK_SOFT, "/grp1/recursive", "/grp1/recursive");
+
+    /* Close */
+    H5Sclose (scalar);
+    H5Fclose (file);
+    return 0;
+}