package Hydra::Helper::Escape;
use strict;
use base qw(Exporter);
our @EXPORT = qw(escapeString);
sub escapeString {
    my ($s) = @_;
    $s =~ s|\\|\\\\|g;
    $s =~ s|\"|\\\"|g;
    $s =~ s|\$|\\\$|g;
    return "\"" . $s . "\"";
}

use Hydra::Helper::Escape;

sub escape {
    my ($s) = @_;
    $s =~ s|\\|\\\\|g;
    $s =~ s|\"|\\\"|g;
    $s =~ s|\$|\\\$|g;
    return "\"" . $s . "\"";
}

        $res .= "if system == ${\escape $system} then {\n\n";

        $res .= "if system == ${\escapeString $system} then {\n\n";

            $res .= "  ${\escape $attr} = (mkFakeDerivation {\n";

            $res .= "  ${\escapeString $attr} = (mkFakeDerivation {\n";

            $res .= "    name = ${\escape ($build->get_column('releasename') or $build->nixname)};\n";
            $res .= "    system = ${\escape $build->system};\n";

            $res .= "    name = ${\escapeString ($build->get_column('releasename') or $build->nixname)};\n";
            $res .= "    system = ${\escapeString $build->system};\n";

            $res .= "      description = ${\escape $build->description};\n"

            $res .= "      description = ${\escapeString $build->description};\n"

            $res .= "      license = ${\escape $build->license};\n"

            $res .= "      license = ${\escapeString $build->license};\n"

            $res .= "      maintainers = ${\escape $build->maintainers};\n"

            $res .= "      maintainers = ${\escapeString $build->maintainers};\n"

            $res .= "    ${\escape $_} = ${\escape $pkg->{outputs}->{$_}};\n" foreach @outputNames;

            $res .= "    ${\escapeString $_} = ${\escapeString $pkg->{outputs}->{$_}};\n" foreach @outputNames;

use strict;
use Setup;
use Data::Dumper;
use Test2::V0;
use Hydra::Helper::Escape;
subtest "checking individual attribute set elements" => sub {
    my %values = (
        "" => '""',
        "." => '"."',
        "foobar" => '"foobar"',
        "foo.bar" => '"foo.bar"',
        "🌮" => '"🌮"',
        'foo"bar' => '"foo\"bar"',
        'foo\\bar' => '"foo\\\\bar"',
        '$bar' => '"\\$bar"',
    );
    for my $input (keys %values) {
        my $value = $values{$input};
        is(escapeString($input), $value, "Escaping the value: " . $input);
    }
};
done_testing;