File: context.t

package info (click to toggle)
libgeo-libproj-ffi-perl 1.01-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 304 kB
  • sloc: perl: 1,339; makefile: 11
file content (39 lines) | stat: -rw-r--r-- 682 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
#!perl
use strict;
use warnings;
use lib 'lib';

use Test::More;
use Test::Exception;
my $no_warnings;
use if $no_warnings = $ENV{AUTHOR_TESTING} ? 1 : 0, 'Test::Warnings';

# Threading contexts
# https://proj.org/development/reference/functions.html#threading-contexts

plan tests => 3 + $no_warnings;

use Geo::LibProj::FFI qw( :all );


my ($c);


# proj_context_create

lives_and { ok $c = proj_context_create() } 'context_create';


# proj_context_clone

# proj_context_use_proj4_init_rules

lives_ok { proj_context_use_proj4_init_rules($c, 1) } 'context_use_proj4_init_rules';


# proj_context_destroy

lives_ok { proj_context_destroy($c) } 'context_destroy';


done_testing;