View | Details | Raw Unified | Return to bug 36625
Collapse All | Expand All

(-)a/t/db_dependent/Koha/Biblio.t (-1 / +34 lines)
Lines 915-920 subtest 'get_marc_components() tests' => sub { Link Here
915
subtest 'get_components_query' => sub {
915
subtest 'get_components_query' => sub {
916
    plan tests => 12;
916
    plan tests => 12;
917
917
918
    $schema->storage->txn_begin;
919
918
    my $biblio       = $builder->build_sample_biblio();
920
    my $biblio       = $builder->build_sample_biblio();
919
    my $biblionumber = $biblio->biblionumber;
921
    my $biblionumber = $biblio->biblionumber;
920
    my $record       = $biblio->metadata->record;
922
    my $record       = $biblio->metadata->record;
Lines 959-969 subtest 'get_components_query' => sub { Link Here
959
        is( $comp_sort, "title_asc", "$engine: UseControlNumber enabled with MarcOrgCode sort if correct" );
961
        is( $comp_sort, "title_asc", "$engine: UseControlNumber enabled with MarcOrgCode sort if correct" );
960
        $record->delete_field($marc_003_field);
962
        $record->delete_field($marc_003_field);
961
    }
963
    }
964
965
    $schema->storage->txn_rollback;
966
962
};
967
};
963
968
964
subtest 'get_volumes_query' => sub {
969
subtest 'get_volumes_query' => sub {
965
    plan tests => 3;
970
    plan tests => 3;
966
971
972
    $schema->storage->txn_begin;
973
967
    my $biblio       = $builder->build_sample_biblio();
974
    my $biblio       = $builder->build_sample_biblio();
968
    my $biblionumber = $biblio->biblionumber;
975
    my $biblionumber = $biblio->biblionumber;
969
    my $record       = $biblio->metadata->record;
976
    my $record       = $biblio->metadata->record;
Lines 1003-1008 subtest 'get_volumes_query' => sub { Link Here
1003
        "(((rcn:$biblionumber AND cni:OSt) OR rcn:\"OSt $biblionumber\") NOT (bib-level:a OR bib-level:b))",
1010
        "(((rcn:$biblionumber AND cni:OSt) OR rcn:\"OSt $biblionumber\") NOT (bib-level:a OR bib-level:b))",
1004
        "UseControlNumber enabled with MarcOrgCode"
1011
        "UseControlNumber enabled with MarcOrgCode"
1005
    );
1012
    );
1013
1014
    $schema->storage->txn_rollback;
1015
1006
};
1016
};
1007
1017
1008
subtest 'generate_marc_host_field' => sub {
1018
subtest 'generate_marc_host_field' => sub {
Lines 1811-1816 subtest 'item_groups() tests' => sub { Link Here
1811
subtest 'normalized_isbn' => sub {
1821
subtest 'normalized_isbn' => sub {
1812
    plan tests => 1;
1822
    plan tests => 1;
1813
1823
1824
    $schema->storage->txn_begin;
1825
1814
    # We will move the tests from GetNormalizedISBN here when it will get replaced
1826
    # We will move the tests from GetNormalizedISBN here when it will get replaced
1815
    my $biblio = $builder->build_sample_biblio();
1827
    my $biblio = $builder->build_sample_biblio();
1816
    $biblio->biblioitem->set( { isbn => '9781250067128 | 125006712X' } )->store;
1828
    $biblio->biblioitem->set( { isbn => '9781250067128 | 125006712X' } )->store;
Lines 1818-1828 subtest 'normalized_isbn' => sub { Link Here
1818
        $biblio->normalized_isbn, C4::Koha::GetNormalizedISBN( $biblio->biblioitem->isbn ),
1830
        $biblio->normalized_isbn, C4::Koha::GetNormalizedISBN( $biblio->biblioitem->isbn ),
1819
        'normalized_isbn is a wrapper around C4::Koha::GetNormalizedISBN'
1831
        'normalized_isbn is a wrapper around C4::Koha::GetNormalizedISBN'
1820
    );
1832
    );
1833
1834
    $schema->storage->txn_rollback;
1835
1821
};
1836
};
1822
1837
1823
subtest 'normalized_upc' => sub {
1838
subtest 'normalized_upc' => sub {
1824
    plan tests => 1;
1839
    plan tests => 1;
1825
1840
1841
    $schema->storage->txn_begin;
1842
1826
    # We will move the tests from GetNormalizedUPC here when it will get replaced
1843
    # We will move the tests from GetNormalizedUPC here when it will get replaced
1827
    # Note that only a single test exist and it's not really meaningful...
1844
    # Note that only a single test exist and it's not really meaningful...
1828
    my $biblio = $builder->build_sample_biblio();
1845
    my $biblio = $builder->build_sample_biblio();
Lines 1830-1840 subtest 'normalized_upc' => sub { Link Here
1830
        $biblio->normalized_upc, C4::Koha::GetNormalizedUPC( $biblio->metadata->record ),
1847
        $biblio->normalized_upc, C4::Koha::GetNormalizedUPC( $biblio->metadata->record ),
1831
        'normalized_upc is a wrapper around C4::Koha::GetNormalizedUPC'
1848
        'normalized_upc is a wrapper around C4::Koha::GetNormalizedUPC'
1832
    );
1849
    );
1850
1851
    $schema->storage->txn_rollback;
1852
1833
};
1853
};
1834
1854
1835
subtest 'normalized_oclc' => sub {
1855
subtest 'normalized_oclc' => sub {
1836
    plan tests => 1;
1856
    plan tests => 1;
1837
1857
1858
    $schema->storage->txn_begin;
1859
1838
    # We will move the tests from GetNormalizedOCLC here when it will get replaced
1860
    # We will move the tests from GetNormalizedOCLC here when it will get replaced
1839
    # Note that only a single test exist and it's not really meaningful...
1861
    # Note that only a single test exist and it's not really meaningful...
1840
    my $biblio = $builder->build_sample_biblio();
1862
    my $biblio = $builder->build_sample_biblio();
Lines 1842-1847 subtest 'normalized_oclc' => sub { Link Here
1842
        $biblio->normalized_oclc, C4::Koha::GetNormalizedOCLCNumber( $biblio->metadata->record ),
1864
        $biblio->normalized_oclc, C4::Koha::GetNormalizedOCLCNumber( $biblio->metadata->record ),
1843
        'normalized_oclc is a wrapper around C4::Koha::GetNormalizedOCLCNumber'
1865
        'normalized_oclc is a wrapper around C4::Koha::GetNormalizedOCLCNumber'
1844
    );
1866
    );
1867
1868
    $schema->storage->txn_rollback;
1869
1845
};
1870
};
1846
1871
1847
subtest 'opac_suppressed() tests' => sub {
1872
subtest 'opac_suppressed() tests' => sub {
Lines 1885-1898 subtest 'opac_suppressed() tests' => sub { Link Here
1885
subtest 'ratings' => sub {
1910
subtest 'ratings' => sub {
1886
    plan tests => 1;
1911
    plan tests => 1;
1887
1912
1913
    $schema->storage->txn_begin;
1914
1888
    # See t/db_dependent/Koha/Ratings.t
1915
    # See t/db_dependent/Koha/Ratings.t
1889
    ok(1);
1916
    ok(1);
1917
1918
    $schema->storage->txn_rollback;
1890
};
1919
};
1891
1920
1892
subtest 'opac_summary_html' => sub {
1921
subtest 'opac_summary_html' => sub {
1893
1922
1894
    plan tests => 2;
1923
    plan tests => 2;
1895
1924
1925
    $schema->storage->txn_begin;
1926
1896
    my $author = 'my author';
1927
    my $author = 'my author';
1897
    my $title  = 'my title';
1928
    my $title  = 'my title';
1898
    my $isbn   = '9781250067128 | 125006712X';
1929
    my $isbn   = '9781250067128 | 125006712X';
Lines 1911-1916 subtest 'opac_summary_html' => sub { Link Here
1911
        sprintf( 'Replace %s, %s, %s AND %s please', $author, $title, $biblio->normalized_isbn, $biblio->biblionumber ),
1942
        sprintf( 'Replace %s, %s, %s AND %s please', $author, $title, $biblio->normalized_isbn, $biblio->biblionumber ),
1912
        'opac_summary_html replaces the different patterns'
1943
        'opac_summary_html replaces the different patterns'
1913
    );
1944
    );
1945
1946
    $schema->storage->txn_rollback;
1947
1914
};
1948
};
1915
1949
1916
subtest 'can_be_edited() tests' => sub {
1950
subtest 'can_be_edited() tests' => sub {
1917
- 

Return to bug 36625