tests/Tests/Organization.hs

   1 {-# LANGUAGE OverloadedStrings #-}
   2
   3 module Tests.Organization where
   4
   5 import Country.Identifier qualified as Country
   6 import Literate.Organization
   7 import Literate.Prelude
   8
   9 bureau1 =
  10   Address
  11     { addressText =
  12         [ "3, place du Monument"
  13         , "Mairie - Bureau 1"
  14         ]
  15     , addressCity = "Gentioux-Pigerolles"
  16     , addressZipCode = "23340"
  17     , addressCountry = Country.france
  18     }
  19
  20 julmInfo =
  21   organization
  22     { orgEntity =
  23         entity
  24           { entityId = EntityId 1
  25           , entityName = Just "julminfo"
  26           , entityAddress = Just bureau1
  27           , entitySIREN = Just "942798083"
  28           , entityIBAN =
  29               Just
  30                 IBAN
  31                   { ibanCountry = Country.france
  32                   , ibanCheckDigits = 18
  33                   , ibanBasicBankAccountNumber = "20041010082037353D02912"
  34                   }
  35           }
  36     , orgParts =
  37         [ "Admin" := organization{orgEntity = julm}
  38         ]
  39     }
  40
  41 julm =
  42   entity
  43     { entityId = EntityId 2
  44     , entityName = Just "Julien Moutinho"
  45     , entityEmail = Just "julm@sourcephile.fr"
  46     -- , entityPhone = Just "+33 7 55 60 42 77"
  47     }
  48
  49 nixosFoundationNGITeam =
  50   organization
  51     { orgEntity =
  52         entity
  53           { entityId = EntityId 3
  54           , entityName = Just "Stichting NixOS Foundation"
  55           , entityAddress =
  56               Just
  57                 Address
  58                   { addressText =
  59                       [ "Korte Lijnbaanssteeg 1-4318"
  60                       ]
  61                   , addressZipCode = "1012 SL"
  62                   , addressCity = "Amsterdam"
  63                   , addressCountry = Country.netherlands
  64                   }
  65           }
  66     , orgParts =
  67         [ "Admin" :=
  68             organization
  69               { orgEntity =
  70                   entity
  71                     { entityId = EntityId 4
  72                     , entityEmail = Just "finance@nixos.org"
  73                     }
  74               }
  75         , "Department" :=
  76             organization
  77               { orgEntity =
  78                   entity
  79                     { entityId = EntityId 5
  80                     , entityName = Just "Nix@NGI Team"
  81                     , entityEmail = Just "ngi@nixos.org"
  82                     }
  83               , orgParts =
  84                   [ "Admin" :=
  85                       organization
  86                         { orgEntity =
  87                             entity
  88                               { entityId = EntityId 6
  89                               , entityName = Just "Daniel Ramirez"
  90                               , entityEmail = Just "danielramirez5@protonmail.com"
  91                               }
  92                         }
  93                   ]
  94               }
  95         ]
  96     }
  97
  98 upwork =
  99   organization
 100     { orgEntity =
 101         entity
 102           { entityId = EntityId 8
 103           , entityName = Just "Upwork"
 104           , entityAddress = Nothing
 105           , entitySIREN = Nothing
 106           , entityIBAN = Nothing
 107           }
 108     }