view release on metacpan or  search on metacpan

lib/RPM/CPAN/Repository.pm  view on Meta::CPAN

use File::Basename qw(dirname);
use POSIX qw(uname);

our $VERSION = '0.0.1';

our $REPO_FILE   = '/etc/yum.repos.d/mediaalpha-public.repo';
my $REPO_CONTENT = <<'END';
[mediaalpha-public-perl]
name     = mediaalpha-public-perl-5.42.2
baseurl  = https://mediaalpha-public-rpm-repo.s3.amazonaws.com/perl/5.42.2/$basearch
gpgcheck = 1
gpgkey   = https://mediaalpha-public-rpm-repo.s3.amazonaws.com/RPM-GPG-KEY-mediaalpha
END

# we only support AL2023
sub detect_al2023 {
    my $os_release = '/etc/os-release';

    my $config = Config::Tiny->read($os_release)
        or die "Can't read $os_release: " . Config::Tiny->errstr . "\n";

    my $name    = $config->{_}{NAME}    // '';

t/repo_operations.t  view on Meta::CPAN

use File::Spec;
use RPM::CPAN::Repository;

my $tmpdir = tempdir( CLEANUP => 1 );
my $tmpfile = File::Spec->catfile( $tmpdir, 'mediaalpha-public.repo' );

my $CORRECT_CONTENT = <<'END';
[mediaalpha-public-perl]
name     = mediaalpha-public-perl-5.42.2
baseurl  = https://mediaalpha-public-rpm-repo.s3.amazonaws.com/perl/5.42.2/$basearch
gpgcheck = 1
gpgkey   = https://mediaalpha-public-rpm-repo.s3.amazonaws.com/RPM-GPG-KEY-mediaalpha
END

# --- check_if_repo_dir_exists ---

{
    my $missing = File::Spec->catdir( $tmpdir, 'nonexistent' );
    local $RPM::CPAN::Repository::REPO_FILE =
        File::Spec->catfile( $missing, 'test.repo' );
    ok( !eval { RPM::CPAN::Repository::check_if_repo_dir_exists(); 1 },
        'check_if_repo_dir_exists dies when dir is missing' );