Add test case.

unison-src/transcripts/fix2795.md

@@ -0,0 +1,5 @@
+```ucm
+.> builtins.mergeio
+.> load unison-src/transcripts/fix2795/docs.u
+.> display test
+```

unison-src/transcripts/fix2795.output.md

@@ -0,0 +1,27 @@
+```ucm
+.> builtins.mergeio
+
+  Done.
+
+.> load unison-src/transcripts/fix2795/docs.u
+
+  I found and typechecked these definitions in
+  unison-src/transcripts/fix2795/docs.u. If you do an `add` or
+  `update`, here's how your codebase would change:
+  
+    ⍟ These new definitions are ok to `add`:
+    
+      t1   : Text
+      test : Doc2
+
+.> display test
+
+      t : Text
+      t = "hi"
+      t
+      ⧨
+      "hi"
+  
+      t1 = "hi"
+
+```

unison-src/transcripts/fix2795/docs.u

@@ -0,0 +1,12 @@
+test = {{
+  ```
+  t : Text
+  t = "hi"
+
+  t
+  ```
+  @source{t1}
+
+}}
+
+t1 = "hi"