Natools

Diff
Login

Differences From Artifact [de7679f0cf]:

To Artifact [bee7ae34a6]:


152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
                  end if;
               end;
            end if;
         end;
      exception
         when Error : others =>
            if not First_OK then
               Test.Info ("During compression of " & Image (Compressed));
            end if;

            Test.Report_Exception (Error, NT.Fail);
      end;
   end Generic_Roundtrip_Test;









|







152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
                  end if;
               end;
            end if;
         end;
      exception
         when Error : others =>
            if not First_OK then
               Test.Info ("During decompression of " & Image (Compressed));
            end if;

            Test.Report_Exception (Error, NT.Fail);
      end;
   end Generic_Roundtrip_Test;