Index: tests/natools-s_expressions-file_rw_tests.adb
==================================================================
--- tests/natools-s_expressions-file_rw_tests.adb
+++ tests/natools-s_expressions-file_rw_tests.adb
@@ -17,10 +17,11 @@
 with Ada.Streams.Stream_IO;
 with Ada.Strings.Unbounded;
 with Ada.Unchecked_Deallocation;
 
 with Natools.S_Expressions.Atom_Buffers;
+with Natools.S_Expressions.Atom_Refs;
 with Natools.S_Expressions.File_Readers;
 with Natools.S_Expressions.File_Writers;
 with Natools.S_Expressions.Test_Tools;
 
 with GNAT.Debug_Pools;
@@ -121,10 +122,18 @@
          begin
             Reader.Read (Buffer, 100);
             Test_Tools.Test_Atom (Test, Payload, Buffer.Data);
          end Buffer_Read;
 
+         Reference_Read :
+         declare
+            Buffer : Atom_Refs.Reference;
+         begin
+            Buffer := Reader.Read;
+            Test_Tools.Test_Atom (Test, Payload, Buffer.Query.Data.all);
+         end Reference_Read;
+
          Block_Read :
          declare
             procedure Process (Block : in Atom);
 
             Offset : Count := 0;