projects / app-gallery.git / blame
| Commit | Line | Data |
|---|---|---|
| b1336dac MG |
1 | #!/usr/bin/perl |
| 2 | use strict; | |
| 3 | use warnings; | |
| 4 | ||
| 5 | use File::Temp qw/tempdir/; | |
| 6 | use File::Slurp; | |
| 7 | use File::Spec::Functions; | |
| 8 | use Image::Magick; | |
| 9 | ||
| 10 | use Test::More tests => 11; | |
| 11 | BEGIN { use_ok('App::Gallery') }; | |
| 12 | ||
| 13 | sub test_img_size { | |
| 14 | my ($width, $height, $file) = @_; | |
| 15 | my $image = Image::Magick->new; | |
| 16 | $image->Read($file); | |
| 17 | my ($actual_width, $actual_height) = $image->Get(qw/width height/); | |
| 18 | is $width, $actual_width, 'image width'; | |
| 19 | is $height, $actual_height, 'image height'; | |
| 20 | } | |
| 21 | ||
| 22 | my @imgs = <t/*.png>; | |
| 23 | my $dir = tempdir ('app-gallery.XXXX', TMPDIR => 1, CLEANUP => 1); | |
| 24 | my $dir1 = catdir $dir, 'test1'; | |
| 25 | my $dir2 = catdir $dir, 'test2'; | |
| 26 | ||
| 27 | App::Gallery->run({out => $dir1, title => 'Some title', width => 200, height => 200}, @imgs); | |
| 28 | ||
| 29 | my $html = read_file catfile $dir1, 'index.html'; | |
| 30 | is $html, <<'EOF', 'index.html as expected'; | |
| 31 | <!DOCTYPE html> | |
| 32 | <title>Some title</title> | |
| 33 | <meta charset="utf-8"> | |
| 34 | <style> | |
| 35 | .imgwrap { | |
| 36 | display: inline-block; | |
| 37 | margin: 6px 3px; | |
| 38 | vertical-align: center; | |
| 39 | text-align: center; | |
| 40 | } | |
| 41 | </style> | |
| 42 | <link rel="stylesheet" href="style.css"> | |
| 43 | ||
| 44 | <h1>Some title</h1> | |
| 45 | <div> | |
| 46 | <div class=imgwrap><a href='full/100x400.png'><img src='thumb/100x400.png'></a></div> | |
| 47 | <div class=imgwrap><a href='full/800x200.png'><img src='thumb/800x200.png'></a></div> | |
| 48 | </div> | |
| 49 | EOF | |
| 50 | ||
| 51 | test_img_size (50, 200, catfile $dir1, 'thumb', '100x400.png'); | |
| 52 | test_img_size (200, 50, catfile $dir1, 'thumb', '800x200.png'); | |
| 53 | ||
| 54 | App::Gallery->run({out => $dir2, tmpl => catfile 't', 'example-tmpl'}, @imgs); | |
| 55 | ||
| 56 | $html = read_file catfile $dir2, 'index.html'; | |
| 57 | is $html, <<'EOF', 'index.html as expected'; | |
| 58 | <!DOCTYPE html> | |
| 59 | <title>Gallery</title> | |
| 60 | <meta charset="utf-8"> | |
| 61 | <link rel="stylesheet" href="style.css"> | |
| 62 | ||
| 63 | <div> | |
| 64 | <div><a href='full/100x400.png'><img src='thumb/100x400.png'></a></div> | |
| 65 | <div><a href='full/800x200.png'><img src='thumb/800x200.png'></a></div> | |
| 66 | </div> | |
| 67 | EOF | |
| 68 | ||
| 69 | test_img_size (100, 400, catfile $dir2, 'thumb', '100x400.png'); | |
| 70 | test_img_size (600, 150, catfile $dir2, 'thumb', '800x200.png'); |