logo

cve-client

CLI-based client / toolbox for CVE.org git clone https://anongit.hacktivis.me/git/cve-client.git/

cve_schema51.t (1265B)

    

  1. #!/usr/bin/env perl
  2. # CVE-Client: CLI-based client / toolbox for CVE.org
  3. # Copyright © 2021-2023 CVE-Client Authors <https://hacktivis.me/git/cve-client/>
  4. # SPDX-License-Identifier: AGPL-3.0-only
  5. use strict;
  6. use utf8;
  8. use Test::More tests => 2;
  9. use Test::Output;
  11. use JSON::MaybeXS;
  13. use App::CveClient qw(print_cve);
  15. my $json = JSON::MaybeXS->new(utf8 => 1);
  17. open(CVE_IN,  '<', 't/cve_schema51.CVE-2024-4761.json') or die "$!";
  18. open(CVE_OUT, '<', 't/cve_schema51.CVE-2024-4761.txt')  or die "$!";
  20. my $object = $json->decode(<CVE_IN>) or die "$!";
  22. # Read whole files
  23. undef $/;
  25. output_is { print_cve($object, 'CVE-2024-4761') } <CVE_OUT>, '',
  26.   'Test printing CVE-2024-4761';
  28. output_is { print_cve($object, 'CVE-224-4761') } <CVE_OUT>,
  29.   "Warning: Got <CVE-2024-4761> instead of <CVE-224-4761>\n",
  30.   'XTest printing CVE-2024-4761 with cve_id being CVE-224-4761';
  32. close(CVE_IN);
  33. close(CVE_OUT);
  35. # TODO: Figure out how to test fails properly
  36. #
  37. #my $nx_object = $json->decode('{"error":"CVE_RECORD_DNE","message":"The cve record for the cve id does not exist."}');
  38. #
  39. #output_is { print_cve($nx_object, 'CVE-1995-24903') } '', 'Error (CVE_RECORD_DNE): The cve record for the cve id does not exist.', 'Test printing non-existant CVE-1995-24903';
  41. done_testing;